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Πρόλογος  της  Ελληνικής  Έκδοσης 


Είναι  γνωστό  σε  όλους  μας  το  πρόβλημα  της  χρήσης  του  Ελληνικού  αλφά¬ 
βητου  στους  υπολογιστές,  μια  και  όλοι  είναι  φτιαγμένοι  για  το  Λατινικό. 

Όπως  γνωρίζετε  υπάρχουν  Λατινοελληνικές  γραφομηχανές,  δηλαδή 
αυτές  που  έχουν  κεφαλαία  -  μικρά  Λατινικά  και  κεφαλαία  Ελληνικά.  Χάρις 
στη  δυνατότητα  του  ΑπιχίΓ&ά  να  δημιουργεί  χαρακτήρες  οριζόμενους  από 
τον  χρήστη  μπορούμε  και  εμείς  με  το  πρόγραμμα  που  σας  δίνουμε  παρακάτω 
να  δημιουργήσουμε  τους  10  επιπλέον  Ελληνικούς  χαρακτήρες  όπως  στην 
Λατινοελληνική  γραφομηχανή  και  συγκεκριμένα  με  την  εξής  αντιστοιχία: 

@  !  $  &  —  \  [  ί  ]  ) 

ΓΔΘΛΞΠΣΦΨΩ 

Για  τη ν  ακρίβεια  το  Δ  αντιστοιχεί  στο  #  αλλά  για  να  μην  δημιουργηθεί  πρό¬ 
βλημα  με  τις  λίστες  το  αντιστοιχούμε  στο  ! 

Έτσι  λοιπόν  μπορούμε  να  να  έχουμε  ταυτόχρονα  και  τους  λατινικούς  και 
τους  ελληνικούς  χαρακτήρες  οπότε  βλέπουμε  σωστά  τυπωμένες  και  τις  εντο¬ 
λές  της  ΒΑδΙΟ,  όπως  π.χ.  ΡΚΙΝΤ,  ΟΟΤΟ  κ.ο.κ  και  τα  μηνύματα,  π.χ.  ΒΑΛ¬ 
ΤΕ  ΤΑ  ΔΕΔΟΜΕΝΑ.  Φυσικά  υπάρχει  πρόβλημα  της  έλλειψης  των  μικρών 
χαρακτήρων  τους  οποίους  αν  θέλετε  μπορείτε  να  βρείτε  στο  βιβλίο  «ΜΑΘΕ¬ 
ΤΕ  ΒΑδΙΟ  με  τον  Αγπ51γ3(1»  των  εκδόσεων  Κλειδάριθμος.  Επίσης  μπορείτε 
να  μην  χρησιμοποιήσετε  το  πρόγραμμα  των  Ελληνικών  χαρακτήρων  και  να 
έχετε  μηνύματα...  φραγκοχιώτικα,  π.χ.  ΒΑΕΤΕ  ΤΑ  ϋΕϋΟΜΕΝΑ. 


1  ΡΕΜ  ΕΛΛΗΝΙΚΟΙ  ΧΑΡΑΚΤΗΡΕΣ  ΟΘΟΝΗΣ 


5  5ΥΜΒ0Κ  ΑΡΤΕΡ  30 

10  5ΥΜΒ01-  64,126,96,96,96,96,96,96,0 
20  3ΥΜΒ01.  33,24,60,102,102,102,102,126,0 
30  5ΥΜΒ01_  36,124,198,198,254,198,198,124,0 
40  5Υ!ΊΒ01_  38,24,60,102,102,102,102,102,0 
50  5ΥΜΒ01.  95,126,0,0,60,0,0,126,0 
60  5ΥΙΊΒ01.  92,  126,  102,  102,  102,  102,  102,  102,  Ο 
70  5ΥΜΒ01_  91,126,96,48,24,48,96,126,0 
80  8ΥΜΒ01-  123,8,62,107,107,107,62,8,0 
90  5ΥΜΒ01.  93,107,107,107,62,8,8,8,0 
100  5ΥΜΒ0Ε  125,124,198,198,198,198,108,238,0 
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Εισαγωγή 


Σας  παρουσιάζουμε  με  ικανοποίηση  αυτή  τη  συλλογή  προγραμμάτων  για 
τον  ΑΐΏδΙταά  σας.  Καθώς  διαλέγαμε  αυτά  τα  προγράμματα,  προσπαθήσαμε 
να  δώσουμε  απάντηση  στο  ερώτημα: 

«Για  ποιο  σκοπό  χρησιμοποιεί  κανείς  ένα  μικροϋπολογιστή;» 

Θα  βρείτε  μέσα  σ’  αυτό  το  βιβλίο  ρουτίνες  που  καλύπτουν  το  πεδίο  εφαρμο¬ 
γών  ενός  μικροϋπολογιστή  στο  σπίτι,  την  επιχείρηση,  το  σχολείο  και  τις  ώ¬ 
ρες  της  διασκέδασης. 

Τα  προγράμματα  αυτής  της  συλλογής  παρουσιάζονται  με  την  ακόλουθη 
μορφή: 


Σχόλια  για  το  πρόγραμμα. 

Λίστα  του  προγράμματος. 

Ορισμένα  προγράμματα  συνοδεύονται  και  από  φωτογραφία  των  α¬ 
ποτελεσμάτων  τους,  όπως  αυτά  παρουσιάζονται  από  τον  εκτυπωτή 
ή  την  οθόνη. 

Τα  ίδια  προγράμματα  παρουσιάζουν  πολλά  στυλ  δομής  και  πάνω  από  ένα 
στυλ  παρουσίασης. 

Μερικά  από  τα  προγράμματα  είναι  σχεδόν  εντελώς  «φιλικά  προς  το  χρή¬ 
στη»,  και  άλλα  είναι  πολύ  συμπυκνωμένα.  Μερικά  είναι  γεμάτα  από  σχόλια 
και  οδηγίες  ενώ  άλλα  περιέχουν  ελάχιστες  από  αυτές. 

Με  τα  προγράμματά  μας  προσπαθήσαμε  να  δείξουμε  τις  ικανότητες  του  μη¬ 
χανήματος,  όσο  περισσότερο  μπορούσαμε. 

Όλα  τα  προγράμματα  σ’  αυτό  το  βιβλίο  έχουν  γραφτεί  ώστε  να  τρέχουν, 
χωρίς  τροποποίηση,  στον  ΘΡΘ  464  με  καταγραφέα  δεδομένων,  στον  ΘΡΟ 
464  με  επί  πλέον  μονάδα  δίσκου  και  στον  ΟΡΟ  664.  Μια  επιλογή  γι’  αυτούς 
που  έχουν  πρόσβαση  σε  συστήματα  αποθήκευσης  στοιχείων  σε  δίσκο  είναι 
να  αποθηκεύουν  τα  στοιχεία  στο  δίσκο  τη  στιγμή  που  τα  δίνουν  στον  υπολο¬ 
γιστή,  κι  όχι  να  τ’  αποθηκεύουν  αρχικά  σ’  ένα  πίνακα  και  στο  τέλος  ν’  απο¬ 
θηκεύουν  τον  πίνακα  στο  δίσκο,  όπως  γίνεται  με  τα  προγράμματα  επεξεργα¬ 
σίας  αρχείων  αυτού  του  βιβλίου.  Η  τροποποίηση  αυτών  των  προγραμμάτων, 
έτσι  που  να  μπορούν  να  χρησιμοποιούν  την  εναλλακτική  λύση  που  προανα- 
φέρθηκε,  θα  μπρούσε  να  είναι  μια  χρήσιμη  εξάσκηση.  Οι  χρήστες  κασετών 
μπορεί  να  θέλουν  να  προσθέσουν  στα  προγράμματα,  όπου  το  νομίζουν  απα¬ 
ραίτητο,  σχόλια  για  να  τους  υπενθυμίζουν  το  ξετύλιγμα  της  ταινίας  μέχρι 
την  αρχή  ενός  αρχείου  πριν  το  φόρτωμα  και  μετά  την  αποθήκευση. 

Σ’  αυτό  το  σημείο  πρέπει  να  αναφερθούμε  στην  περίπτωση  ύπαρξης  λαθών. 
Είναι  ενδεχόμενο  να  μας  έχουν  ξεφύγει  μερικά  λάθη  στα  προγράμματα.  Ελ¬ 
πίζουμε  ότι  τα  λάθη  αυτά  έχουν  ελαχιστοποιηθεί,  χάρη  στις  προσπάθειες 
του  εκδοτικού  οίκου  ΡΓεηΙϊοε  Ηαΐΐ,  να  δοκιμάσει  τα  προγράμματα  στην  πρά- 
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ξη.  Με  την  ευκαιρία  αυτή,  ζητούμε  συγγνώμη  αν  τελικά  υπάρχει  οποιοδήπο- 
τε  λάθος. 

Από  πολλές  απόψεις,  όμως,  κανένα  απ’  αυτά  τα  προγράμματα  δεν  είναι  πλή¬ 
ρες.  Όλα  θα  μπορούσαν  να  επεκταθούν  κατά  διάφορους  τρόπους.  Μια  απ’ 
τις  χαρές  της  απασχόλησης  με  τους  υπολογιστές  είναι  το  να  παίρνει  κανείς 
μια  απλή  ρουτίνα  και  να  της  δίνει  επαγγελματική  και  φιλική  προς  τον  χρή¬ 
στη  εμφάνιση.  Δεν  προσπαθήσαμε  να  κάνουμε  τα  προγράμματά  μας  πλήρη 
μ’  αυτή  την  έννοια.  Θεωρείστε  αυτό  το  βιβλίο  σαν  μέρος  της  βιβλιοθήκης 
των  προγραμμάτων  σας. 
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Π1  ζ<*ρια 


Αυτό  το  πρόγραμμα,  προς  μεγάλη  χαρά  του  παίχτη  τυχερών  παιχνιδιών,  «ρί¬ 
χνει»  τρία  ζάρια. 

Θα  μπορούσε  να  επεκταθεί  σε  ένα  παιγνίδι  όπου  θα  στοιχηματίζεις  με  τον  υ¬ 
πολογιστή. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Πατώντας  το  πλήκτρο  των  διαστημάτων  «ρίχνεται»  η  ζαριά. 

Το  πλήκτρο  5  σταματάει  το  πρόγραμμα. 


10  ΡΕΜ  Ζάρια 
20  ΜΟΡΕ  0 
30  ΡΕΝ  1 
40  ΒΟΡϋΕΡ  1 
50  ΡΑΡΕΡ  0 
60  $$=5ΡΑ0Ε$( 18) 

70  γ$=0ΗΡ$( 129) 

80  ΐ$=0ΗΡ$(32) 

90  : 

100  ΡΕΜ  Βάλε  τα  σχέδια  των  κουκίδων  στις  αλφαριθμητικές  (51ππ§5) 

110  3$=Γ$+ΐ$+ΐ$ 

120  &$=ΐ$+Γ$+ΐ$ 

130  ε$=ΐ$+ΐ$+Γ$ 

140  ά$=Γ$+ί$+Γ$ 

150  θ$=ΐ$+ΐ$+ΐ$ 

160  : 

170  ΙΟΟΑΤΕ  2.1 

180  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΡΙΧΝΕΙ». 

190  ΡΡΙΝΤ  ΤΑΒ( 2)  «ΤΡΙΑ  ΖΑΡΙΑ»». 

200  ΘΙΜ  άε$(3,3) 

210  : 

220  ν/ΗΙΕΕ  λ$<>"δ"  ΑΝΡ  *$<>"$" 

230  :  ΕΟΟΑΤΕ  4.22 

240  :  ΡΡΙΝΤ  «ΠΑΤΑ  ΤΟ  ΠΛΗΚΤΡΟ  ΚΕΝΟΥ  ΓΙΑ  ΝΑ  ΡΙΧΤΟΥΝ  ΤΑ  ΖΑΡΙΑ». 
250  :  ΕΟΟΑΤΕ  4.24 

260  :  ΡΡΙΝΤ  «Πάτα  το  πλήκτρο  $  για  να  σταματήσει  το  πρόγραμμα»» 

270  :  λ$=ΙΝΚΕΥ$: ΙΕ  λ$=""  ΤΗΕΝ  270 
280  :  ΕΟΘΑΤΕ  1,12 
290  :  ΡΡΙΝΤ  5$ 

300  :  ΡΡΙΝΤ  5$ 

310  :  ΡΡΙΝΤ  5$ 

320  : 

330  :  Ρ0Ρ  η=1  ΤΟ  3 
340  :  ν  1%=1+6*ΡΝ0( 1 ) 

350  :  ΟΝ  νΙ%  6051ΙΒ  520,580,640,700,760,820,820 

360  :  ΝΕΧΤ 
370  : 

380  :  ΕΟΟΑΤΕ  1,12 
390  :  Ρ0Ρ  π=1  ΤΟ  3 

400  :  ΡΡΙΝΤ  θ$,·δε$(1,η);ε$,·ύε$(2,η),·θ$,-άο$(3,η) 

410  : 
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420  : 

430  :  ΡΟΡ  Κ=0  ΤΟ  200:ΝΕΧΤ 

440  ΜΕΝΟ 

450  ΜΟΡΕ  1 

460  ΕΝϋ 

470  : 

480  : 

490  ΡΕΜ  Υπορουτίνες 
500  : 

510  ΡΕΜ  Ένα 
520  όε$(η,1 )=θ$ 

530  ϋε$(η,2)=6$ 

540  <1ε$(η,3)=θ$ 

550  ΡΕΤΟΡΝ 
560  : 

570  ΡΕΜ^ύο. 

580  όε$(η,1)=3$ 

590  όε$(η,2)=θ$ 

600  όε$(η,3)=ε$ 

610  ΡΕΤυΡΝ 
620  : 

630  ΡΕΜ  Τρία 
640  άε$(η,Ί )=3$ 

650  όε$(η,2)=6$ 

660  £)ε$(η,3)  =  ε$ 

670  ΡΕΤυΡΝ 
680  : 

690  ΡΕΜ'Τέσσερα 
700  ϋε$(η,1  )=ε)$ 

710  άε$(η,2)=ε$ 

720  εΙε$(η,3)=ά$ 

730  ΡΕΤυΡΝ 
740  : 

750  ΡΕΜ  Πέντε 
760  άε$(η,υ=ΰ$ 

770  ΰε$(η,2)=&$ 

780  £)ε$(Π/·3)=£ΐ$ 

790  ΡΕΤυΡΝ 
800  : 

810  ΡΕΜ  Έ£ι 
820  άε$(η,1)=εΙ$ 

830  εΙε$(η,,2)=εΙ$ 

840  άε$(η,3)=εΙ$ 

850  ΡΕΤυΡΝ 
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Π2  Μιΐ53ΐί 


Αυτό  το  πρόγραμμα  μετατρέπει  τον  ΑιηδίΓΗά  σου  σε  μουσικό  όργανο.  Οι  τε¬ 
λευταίες  τρεις  σειρές  των  πλήκτρων  επιλέγουν  τρεις  οκτάβες.  Τα  πλήκτρα  1 
μέχρι  9  επιλέγουν  τη  διάρκεια  της  νότας. 

Το  πρόγραμμα  παρουσιάζει  τον  απλούστερο  δυνατό  αλγόριθμο,  που  είναι 
εύκολο  να  τον  καταλάβει  ο  καθένας.  Μπορεί  να  επεκταθεί  με  πολλούς  τρό¬ 
πους.  Για  παράδειγμα,  οι  τρεις  διαθέσιμες  «φωνές»  μπορούν  να  χρησιμο¬ 
ποιηθούν  για  την  πραγματοποίηση  συγχορδιών,  μπορεί  να  εισαχθεί  θόρυβος 
για  ειδικά  εφφέ,  μπορούν  να  επιλεγούν  διαφορετικοί  τόνοι,  κ.λπ. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Η  εκτέλεση  του  προγράμματος  σταματάει  με  το  πάτημα  του  πλήκτρου  ΚΕΤ- 

υκΝ. 


10  ΡΕΜ  Μυ53ΐ< 

20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1 :  ΙΝΚ  1,24 
40  Β0ΡΘΕΡ  1 
50  ΜΟϋΕ  1 
60  0Ε$ 

70  ΡΡΙΝΤ:ΡΡΙΝΤ 

80  ΡΡΙΝΤ  ΤΑΒ(  16)" - " 

90  ΡΡΙΝΤ  ΤΑΒ( 16)"  ΜάδΑΚ  " 

100  ΡΡΙΝΤ  ΤΑΒ(  16)" - " 

110  ΕΟΟΑΤΕ  1,8 

120  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΟΥ  ΕΠΙΤΡΕΠΕΙ  ΝΑ  ΠΑΙΞΕΙΣ» 

130  ΡΡΙΝΤ  «ΤΟΝ  ΥΠΟΛΟΓΙΣΤΗ  ΟΠΩΣ  ΕΝΑ  ΜΟΥΣΙΚΟ  ΟΡΓΑΝΟ». 

140  ΕΟΟΑΤΕ  1,12 

150  ΡΡΙΝΤ  «ΜΕ  ΤΑ  ΠΛΗΚΤΡΑ  1  ΩΣ  9  ΕΠΙΛΕΓΕΙΣ  ΤΗ  ΔΙΑΡΚΕΙΑ  ΤΗΣ  ΝΟΤΑΣ». 
160  ΡΡΙΝΤ: ΡΡΪΝΤ 

170  ΡΡΙΝΤ  «Πλήκτρα  <3\ΥΕΚΤΥυΐΟΡ3  [" 

180  ΡΡΙΝΤ  ΤΑΒ(6)"Α  $  θ  Ρ  6  Η  ϋ  Κ  I  :  ;  ]" 

190  ΡΡΙΝΤ  ΤΑΒ(6)"$ΡΑ0Ε  ΖΧΟνΒΝΜ,  ./\" 

200  ΡΡΙΝΤ  «Επιλογή  της  νότας» 

210  ΡΡΙΝΤ: ΡΡΙΝΤ 

220  ΡΡΙΝΤ  «ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΚ  ΣΤΑΜΑΤΑΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

230  : 

240  ΡΙΜ  ρθΓ(36):ΡΕΜ  Περίοδος  κάθε  νότας 
250  Ρ0Ρ  η=1  ΤΟ  36 
260  :  ΡΕΑΘ  ρθΓ(η) 

270  ΝΕΧΤ 
280  : 

290  Χό$( 1 )="[3ροιυγΐΓθΜη" 

300  Χ&$(2)="];: ΙΧίΜςίάδθ" 

310  Κό$(3)  =  "\/ .  ,ιτιηΐ3νςχζ"+€ΗΡ$(32) 

320  : 

330  Π  1  =  5:  ΡΕΜ  Προκαθορισμός  διάρκειας 
340  ΜΗΙΕΕ  3$<ΧΗΡ$(  13) 

350  :  3$=ΙΝΚΕΥ$:ΐΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  350 
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360  : 

370  :  3$=10ΜΕΚ$(3$) 

380  :  ΙΕ  Α50(3$)>48  ΑΝΰ  Α80(3$)<58  ΤΗΕΝ  ηΙ=Α80(3$)-48 
390  : 

400  :  ΐουης|=0 

410  :  ΡΟΡ  οεΐ  =  1  ΤΟ  3 

420  :  ΡΟΡ  ηί=  1  ΤΟ  12 

430  :  ΙΡ  3$=ΜΙ0$(ΚΒ$(οεΐ),ηΐ,1)  ΤΗΕΝ  60$υΒ  580 

440  :  ΝΕΧΤ 

450  :  ΝΕΧΤ 

460  :  ΙΡ  ίοιιηά=1  ΤΗΕΝ  80υΝΘ  129,0, 1 ,0: 80υΝβ  1,ρΓ,15+10*ηΙ,7 

470  ΜΕΝβ 

480  01.8 

490  ΕΝΘ 

500  : 

510  : 

520  ϋΑΤΑ  63,67,71,75,80,84,89,95,100,106,113,119 
530  ΡΑΤΑ  127,134,142,150,159,169,179,190,201,213,225,239 
540  ϋΑΤΑ  253,268,284,301,319,338,358,379,402,426,451,478 
550  : 

560  : 

570  ΡΕΜ  Καθορισμός  της  συχνότητας 
580  ίοιΐΓΚΐ=1 

590  ρΓ=ρ6Γ((υεΐ-1)*12+πΐ) 

600  πΐ=12 
610  ε>εΐ=3 
620  ΡΕΤυΡΝ 
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Π3  Η  ΜΠΑΛΛΑ  ΠΟΥ  ΑΝΑΠΗΔΑ 


Αυτό  το  πρόγραμμα  δείχνει  μια  απλή  μέθοδο  δημιουργίας  κίνησης  στην  ο¬ 
θόνη,  χρησιμοποιώντας  εντολές  ΡΚΙΝΤ.  Η  κίνηση  επιτυγχάνεται  με  το  να 
τοποθετείται  αρχικά  η  μπάλλα  στην  οθόνη  και  στη  συνέχεια  να  τοποθετεί¬ 
ται  ένα  διάστημα  στην  κορυφή.  Σαν  αποτέλεσμα  η  μπάλλα  μετατοπίζεται 
μια  θέση  προς  τα  πάνω. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  Η  μπάλλα  που  αναπηδά 
20  ΜΟΘΕ  1 
30  ΘΕΡΙΝΤ  Χ,Υ,Θ 
40  ΡΑΡΕΡ  2: ΙΝΚ  2,2 
50  ΡΕΝ  1: ΙΝΚ  1,24 
60  Β0ΡΘΕΡ  6 
70  0Ι_$ 

80  5$=5ΡΑ0Ε$(  1 ) 

90  ΘΧ=1 
100  ΘΥ=1 

110  Χ=3+35*ΡΝΘ( 1 ) 

120  Υ=3+20*ΚΝΟ( 1 ) 

130  : 

140  ΗΗΙΕΕ  Ι_ΕΝ(3$)=0 
150  :  1_00 ΑΤΕ  Χ,Υ 

160  :  ΡΡΙΝΤ  0ΗΡ$( 181 ) 

170  :  ΙΡ  Χ=1  0Ρ  Χ=40  ΤΗΕΝ  6051ΙΒ  330 

180  :  ΙΡ  Υ=1  0Ρ  Υ=25  ΤΗΕΝ  605116  380 

190  :  ΙΟΟΑΤΕ  Χ,Υ 

200  :  ΡΡΙΝΤ  3$ 

210  :  ΙΡ  Χ=40  ΑΝΘ  Υ=25  ΤΗΕΝ  ΕΟΟΑΤΕ  40,23:ΡΡΙΝΤ  5$ 

220  :  ΡΕΜ  Καταργεί  την  προς  τα  πάνω  μετατόπιση  της  οθόνης 
230  :  Χ=Χ+ΘΧ 

240  :  Υ=Υ+ΘΥ 

250  :  3$=ΙΝΚΕΥ$:ΡΕΜ  Πάτησε  κάποιο  κουμπί  για  να  σταματήσει  το  πρόγραμμα 
260  ΜΕΝΘ 

270  ΘΕΡΡΕΑί.  Χ,Υ,Θ 
280  ΘΕε 
290  ΕΝΘ 
300  : 

310  : 

320  ΡΕΜ  Ανάκλαση  στις  άκρες 
330  ΘΧ=-0Χ 

340  30υΝΘ  1,0, 5, 5, 0,0, 5 
350  ΡΕΤϋΡΝ 
360  : 

370  ΡΕΜ  Ανάκλαση  στην  πάνω  ή  κάτω  πλευρά 
380  ΘΥ=-ΡΥ 

390  30υΝΘ  1,0, 5, 5,0, 0,5 
400  ΡΕΤυΡΝ 
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Π4  Η  ΜΠΑΛΛΑ  ΚΙ  Ο  ΤΟΙΧΟΣ 


Αυτό  το  πρόγραμμα  είναι  μια  επέκταση  του  προηγούμενου  προγράμματος. 
Μπορεί  να  επιλεγεί  μια  απ’  τις  δυό  εναλλακτικές  γωνίες  ανάκλασης,  ανάλο¬ 
γα  με  το  αν  η  μπάλλα  χτυπά  την  επιφάνεια  ή  τη  γωνία  ενός  τούβλου.  Θα  μπο¬ 
ρούσες  να  επεκτείνεις  αυτό  το  πρόγραμμα  εισάγοντας  και  μια  ρακέτα  για  τον 
έλεγχο  της  μπάλλας,  καθώς  και  αρκετά  επίπεδα  τοίχων. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  Η  μπάλλα  κι  ο  τοίχος 
20  ΜΟΘΕ  1 
30  ΘΕΡΙΝΤ  Χ,Υ,Θ 
40  ΡΑΡΕΡ  0: ΙΝΚ  0,2:013 
50  Ρ0Ρ  Χ=624  ΤΟ  639 
60  :  Ρ10Τ  Χ,Ο 

70  :  ΘΡΑΗΡ  0,399 
80  ΝΕΧΤ 
90  : 

100  605υΒ  490:  ΡΕΜ  Τοίχος 
110  ΡΕΝ  1 : ΙΝΚ  1,24 
120  Β0ΡΘΕΡ  24 
130  5$=5ΡΑ0Ε$(  1 ) 

140  ΘΧ=1 
150  ΘΥ=1 

160  Χ=3+25*ΡΝ0(  1) 

170  Υ=3+20*ΡΝΘ( 1 ) 

180  : 

190  ΜΗΙΕΕ  ΙΕΝ(3$)=0 
200  :  ΕΟΟΑΤΕ  Χ,Υ 
210  :  ΡΡΙΝΤ  0 ΗΡ$ (231 ) 

220  :  ΙΡ  Χ  =  29  0Ρ  Χ=31  ΤΗΕΝ  6051ΙΒ  570  Ε1_5Ε  Η39=0 
230  :  ΙΡ  Χ= 1  0Ρ  Χ=39  0Ρ  Τ 139=1  ΤΗΕΝ  60$υΒ  390 

240  :  ΙΡ  Υ= 1  0Ρ  Υ=25  ΤΗΕΝ  6051ΙΒ  440 

250  :  ΙΟΟΑΤΕ  Χ,Υ 

260  :  ΡΡΙΝΤ  5$ 

270  :  ΙΡ  Χ=40  ΑΝΘ  Υ=25  ΤΗΕΝ  ίΟΟΑΤΕ  40,23: ΡΡΙΝΤ  5$ 

280  :  ΡΕΙΊ  Καταργεί  την  προς  τα  πάνω  μετατόπιση  της  οθόνης 
290  :  Χ=Χ+ΘΧ 

300  :  Υ=Υ+ΘΥ 

310  :  3$=ΙΝΚΕΥ$:  ΡΕΜ  Πάτησε  κάποιο  κουμπί  για  να  σταματήσει  το  πρόγραμμα 
320  ΜΕΝΘ 

330  ΘΕΡΡΕΑί.  Χ,Υ,Θ 
340  (Χ5 
350  ΕΝΘ 
360  : 

370  : 

380  ΡΕΜ  Ανάκλαση  στις  άκρες  ή  στους  τοίχους 
390  ΘΧ=-ΘΧ 

400  501)ΝΘ  1,0,2+20*1139,5,0,0,5 
410  ΡΕΤυΡΝ 
420  : 

430  ΡΕΜ  Ανάκλαση  στην  πάνω  ή  κάτω  πλευρά 
440  ΘΥ=-0Υ 
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450  50υΜ  1,0,2+20**139,5,0,0,5 
460  ΡΕΤυΡΝ 
470  : 

480  ΡΕΜ  Τοίχος 
490  ΡΕΝ  2: ΙΝΚ  2,6 
500  ΕΟΡ  Υ=1  ΤΟ  25 
510  :  ΕΟΟΑΤΕ  30, Υ 
520  :  ΡΡΙΝΤ  ΟΗΡ$( 143) 

530  ΝΕΧΤ 
540  ΡΕΤυΡΝ 
550  : 

560  ΡΕΜ  Δοκιμή 
570  ί  1.39=0 

580  ΙΡ  Χ=29  ΑΝΰ  ΰΧ=-1  ΤΗΕΝ  ΡΕΤυΡΝ 

590  ΙΡ  X  =  3 1  ΑΝϋ  ϋΧ=1  ΤΗΕΝ  ΡΕΤυΡΝ 

600  ΙΡ  ΤΕ5Τ(472,(26-Υ)*16-8)=2  ΤΗΕΝ  6051ΙΒ  660 

610  ΙΡ  Υ=0  ΟΡ  Υ=25  ΤΗΕΝ  ΡΕΤυΡΝ 

620  ΙΡ  ΤΕ5Τ(472,(26-Υ-ϋΥ)*16-8)=2  ΤΗΕΝ  605υΒ  720 

630  ΡΕΤυΡΝ 

640  : 

650  ΡΕΜ  Επιφάνεια 
660  ίί39=1 
670  ΕΟΟΑΤΕ  30,Υ 
680  ΡΡΙΝΤ  5$ 

690  ΡΕΤυΡΝ 
700  : 

710  ΡΕΜ  Γωνία 

720  ΙΡ  11.39=1  ΤΗΕΝ  ΡΕΤυΡΝ 
730  *139=1 
740  ΕΟΟΑΤΕ  30,Υ+ΡΥ 
750  ΡΡΙΝΤ  5$ 

760  ϋΥ=-ΟΥ 
770  ΡΕΤυΡΝ 
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Π5  ΨΗΦΙΑΚΟ  ΡΟΛΟ  Ι 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  το  εσωτερικό  ρολόι  του  μικροϋπολογιστή 
/ια  να  φτιάξει  στην  οθόνη  ένα  ψηφιακό  ρολόι,  που  δουλεύει  σε  24ωρη  βάση. 
Θα  μπορούσε  να  επεκταθεί  έτσι  ώστε  να  δείχνει,  ας  πούμε,  την  ώρα  της  Νέας 
Υόρκης,  την  ώρα  του  Χόνγκ  Κόνγκ  και  την  ώρα  Γκρήνουϊτς  σε  τρεις  χωρι¬ 
στές  ενδείξεις. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  την  ώρα  αυτής  της  στιγμής. 


10  ΒΕΜ  Ψηφιακό  ρολόι 
20  ΙΝΚ  0,1 
30  ΙΝΚ  1,24 
40  ΡΑΡΕΡ  0 
50  ΡΕΝ  1 
60  ΒΟΡδΕΡ  1 
70  ΜΟδΕ  1 

80  ΟΝ  ΒΡΕΑΚ  ΟΟδυΒ  630 
90  : 

100  3$(0)=  “Ώρα  (0-23)» 

110  9$  ( 1 )  =  “Λεπτά  (0-59)» 

120  3$(2)=  «Δευτερόλεπτα  (0-59)» 

130  : 

140  Ρ0Ρ  η=0  ΤΟ  2 

150  :  ΙΡ  η=0  ΤΗΕΝ  πιχ=23  ΕΙ_5Ε  ιηχ=59 

160  :  ΐη(π)=-1 

170  :  60511Β  510 

180  ΝΕΧΤ 

190  : 

200  ΜΟΰΕ  0 
210  1.00 ΑΤΕ  6,8 

220  ΡΡΙΝΤ" . " 

230  Ι_00 ΑΤΕ  6,11 

240  ΡΡΙΝΤ" . " 

250  3ΐ3Γΐ=ΙΝΤ (ΤΙΜΕ/300) 

260  ΝΗΙΙ.Ε  ΐιτιί 0X24 
270  :  ΜΗΙ1_Ε  ΐπ)(  1  )<60 
280  :  5θε=ΐπ)(2) 

290  :  ΜΗΙΕΕ  ΐιπ( 2X60 

300  :  ΐπι( 2)  =  3Θ0+ΙΝΤ ( Τ I ΜΕ/300 ) — 5 ΐ 3Γ Έ 

310  :  1.00 ΑΤΕ  6,10 

320  :  ΡΡΙΝΤ": "; 

330  :  Ρ0Ρ  π=0  ΤΟ  2 

340  :  ΐιη$(η)=ΜΙ0$(5ΤΡ$(ΐπι(η)),2) 

350  :  ΙΡ  1_ΕΝ(  ΐπι$(η)  )  =  1  ΤΗΕΝ  ΐπι$(η)  =  "0"+ΐπι$(η) 

360  ΡΡΙΝΤ  ΐιπ$(η);": 

370  :  ΝΕΧΤ 

380  :  ΜΕΝΩ 

390  :  3ΐ3Γΐ=5τ3Γτ+60-5ΘΟ 

400  :  τιπ(1)=τπι(1)  +  1 

410  :  τπι(2)=0 

420  :  ΜΕΝδ 

430  :  τπι(0)=ΐπι(0)  +  1 


16 


440  :  ΙΡ  ΐπι(0)=24  ΤΗΕΝ  ΐηι(0)=0 

450  :  ΐιτι(  1  )=0 

460  ΜΕΝϋ 

470  ΕΝΡ 

480  : 

490  : 

500  ΡΕΜ  Καταχώρησε  την  τρέχουσα  ώρα. 

510  ΜΗΙΕΕ  ΐιπ(η)<0  0Ρ  ΐιη(η)>πιχ 
520  :  0Ε3 

530  :  ΡΡΙΝΤ  ΤΑΒ(  13) «ΨΗΦΙΑΚΟ  ΡΟΛΟ  Ι  » 

540  :  ΡΡΙΝΤ  ΤΑΒ (13) "+++++++++++++" 

550  :  ΕΟΟΑΤΕ  1,6 
560  :  ΡΡΙΝΤ  3$(π); 

570  :  ΙΝΡυΤ  ΐιτΚη) 

580  :  ΜΕΝϋ 
590  ΡΕΤΙΙΡΝ 
600  : 

610  : 

620  ΡΕΜ  Πάτησε  το  πλήκτρο  Ε50  δυό  φορές  για  να  τερματίσει  το  πρόγραμμα. 
630  ΜΟΟΕ  1 
640  ΕΝΰ 
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Π6  ,ΠΜΜΥ 


Σ’  αυτό  το  πρόγραμμα  χρησιμοποιούνται  οι  χαρακτήρες  που  καθορίζονται 
από  το  χρήστη  για  να  δημιουργήσουν  το  κινούμενο  σχέδιο  με  το  όνομα  .Ππι- 
πιγ. 

Έχουμε  συμπεριλάβει  στο  πρόγραμμα  λίγες  γραμμές  για  το  σχεδίασμά  του 
.Εΐϊίπιγ  και  για  να  τον  κάνουμε  να  κινείται.  Αυτές  οι  γραμμές  αποτελούν  α¬ 
πλά  ένα  παράδειγμα  του  τρόπου  με  τον  οποίο  ο  ϋηιιηγ  μπορεί  να  σχεδιασθεί 
και  να  κινείται.  Μπορείς  να  προκαλέσεις  διαφορετικές  κινήσεις  χρησιμο¬ 
ποιώντας  το  σχήμα  που  έχει  δοθεί  με  το  πρόγραμμα  ή  να  το  αναπτύξεις  πα¬ 
ραπέρα  δημιουργώντας  κινήσεις  με  περισσότερα  στιγμιότυπα. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Σταμάτησε  το  πρόγραμμα  πατώντας  οποιοδήποτε  πλήκτρο. 
Πληκτρολόγησε  τις  δικές  σου  ρουτίνες  στις  γραμμές  που  δημιουργούν  την 
κίνηση  τού  ϋηιηιγ. 


10  ΡΕΜ  ϋ  ϊ  ΓΠΓηχ 

20  ΜΟΘΕ  0 

30  ΒΟΡΘΕΡ  15 

40  ΡΑΡΕΡ  0 

50  ΙΝΚ  0,1 

60  01.5 

70  ΡΕΝ  1 

80  ΙΝΚ  1,24 

90  ΙΟΟΑΤΕ  5,4 

100  ΡΡΙΝΤ  «ΓΕΙΑ  ΣΟΥ  ,ΠΜΜΥ!·· 

110  : 

120  ΡΕΜ  Καθορισμός  των  σχημάτων 
130  5ΥΜΒ01  ΑΡΤΕΡ  240 
140  : 

150  ΡΕΜ  Κεφάλι 

160  5ΥΜΒ0Ε  240,24,60,90,126,126,102,62,24 
170  : 

180  ΡΕΜ  Πάνω  μέρος  κορμού 

190  5ΥΜΒ01  241,24,255,255,255,231,126,102,126 
200  : 

210  ΡΕΜ  Κάτω  μέοοε  κορμού 

220  5 ΥΜΒ01  242,102,60,60,60,126,231,231,231 
230  : 

240  ΡΕΜ  Πάνω  μέρος  αριστερού  χεριού 
250  5ΥΜΒ0Ε  243,0,128,192,224,112,48,48,48 
260  : 

270  ΡΕΜ  Κάτω  μέρος  αριστερού  χεριού 
280  5ΥΜΒ01  244,48,48,48,0,0,0,0,0 
290  : 

300  ΡΕΜ  Πάνω  μέρος  δεξιού  χεριού 

310  5ΥΜΒ01  245,0,1,3,7,14,12,12,12 

320  : 

330  ΡΕΜ  Κάτω  μέρος  δεξιού  χεριού 

340  5ΥΜΒ01  246,12,12,12,0,0,0,0,0 
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350  : 

360  ΒΕΜ  Ανύψωση  του  πάνω  μέρους  του  αριστερού  χεριού 
370  δΥΜΒΟί  247,0,0,0,48,48,48,48,48 
380  : 

390  ΒΕΜ  Ανύψωση  του  κάτω  μέρους  του  αριστερού  χεριού 
400  δΥΜΒΟί  248,112,240,192,128,0,0,0,0 
410  : 

420  ΒΕΜ  Τα  πόδια  στην  προσοχή 

430  δΥΜΒΟί  249,231,231,231,231,231,231,231,231 
440  : 

450  ΒΕΜ  Αριστερό  πόδι 

460  δΥΜΒΟί  250,0,0,0,0,0,0,192,192 

470  : 

480  ΒΕΜ  Δεξιό  πόδι 

490  δΥΜΒΟί  251,0,0,0,0,0,0,3,3 

500  : 

510  ΒΕΜ  Καπέλο 

520  δΥΜΒΟί  252,0,0,0,36,60,60,255,255 
530  : 

540  ΒΕΜ  Μπάλλα 

550  δΥΜΒΟί  253,0,24,60,126,126,60,24,0 
560  : 

570  ΒΕΜ  Ρακέτα 

580  δΥΜΒΟί  254,60,126,255,126,60,24,24,24 
590  : 

600  : 

610  ΒΕΜ  Χρησιμοποίησε  τα  σχήματα  για  να  γράψεις  τις  δικές  σου  ρουτίνες 
620  : 

630  ΒΕΜ  Αυτό  εδώ  είναι  ένα  παράδειγμα  ρουτίνας 

640  : 

650  ΒΕΜ  Αυτή  κάνει  τον  ^ίητιτιγ  να  κουνάει  τα  χέρια  του 
660  : 

670  : 

680  ΡΕΝ  2: ΙΝΚ  2,16 
690  1.00  ΑΤΕ  11,10 
700  ΡΒΙΝΤ  ΟΗΒ$(240) 

710  : 

720  ΡΕΝ  3: ΙΝΚ  3,6 
730  Ι_00 ΑΤΕ  10,11 

740  ΡΒΙΝΤ  0ΗΒ$(245);0ΗΒ$(241);0ΗΒ$(243) 

750  : 

760  1.00  ΑΤΕ  10,12 

770  ΡΒΙΝΤ  0ΗΒ$(246);0ΗΒ$(32);0ΗΒ$(244) 

780  ΡΕΝ  4: ΙΝΚ  4,21 
790  1.00  ΑΤΕ  11,12 
800  ΡΒΙΝΤ  0 ΗΒ$ ( 242 ) 

810  : 

820  ΡΕΝ  5: ΙΝΚ  5,0 
830  ίΟΟΑΤΕ  10,13 

840  ΡΒΙΝΤ  0ΗΒ$(251);0ΗΒ$(249);0ΗΒ$(25Ο) 

850  : 

860  ΒΕΜ  Κίνηση 
870  ΡΕΝ  3 

880  ν/ΗΙΕΕ  ίΕΝ(3$)=0 
890  :  ίΟΟΑΤΕ  12,11 
900  :  ΡΒΙΝΤ  0ΗΒ$(243) 

910  :  ίΟΟΑΤΕ  12,12 
920  :  ΡΒΙΝΤ  0ΗΒ$(244) 

930  :  ΕΟΒ  Κ=0  ΤΟ  200:ΝΕΧΤ 
940  :  ίΟΟΑΤΕ  12,12 
950  :  ΡΒΙΝΤ  0ΗΒ$(32) 

960  :  ίΟΟΑΤΕ  12,10 
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970  :  ΡΡΙΝΤ  0ΗΡ$(247) 

980  :  1_00 ΑΤΕ  12,11 

990  :  ΡΡΙΝΤ  0 ΗΡ$ ( 248 ) 

1000  :  ΡΟΡ  Ι<=0  ΤΟ  200:  ΝΕΧΤ 
1010  :  ΕΟΟΑΤΕ  12,10 
1020  :  ΡΡΙΝΤ  0ΗΡ$(32) 

1030  :  3$=ΙΝΚΕΥ$:ΡΕΜ  Πάτησε  οποιοδήποτε  πλήκτρο  για  να  σταματήσει  το  πρόγραμμα. 

1040  ΜΕΝΰ 

1050  ΡΕΝ  1 

1060  ΜΟΟΕ  1 

1070  ΕΝΡ 


«ι 

•Λ 

.11 
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Π7  Ο  ΔΡΟΜΕΑΣ 


Αυτό  το  πρόγραμμα  δείχνει  τον  τρόπο  με  τον  οποίο  μπορεί  να  δημιουργηθεί 
κίνηση,  τυπώνοντας  ένα  σχήμα  πάνω  σ’  ένα  άλλο.  Ο  δρομέας  καταλαμβάνει 
πλάτος  δύο  χαρακτήρων  και  κινείται  προς  τα  μπρος,  κατά  ένα  διάστημα  τη 
φορά,  δίνοντας  την  εντύπωση  μιας  συνεχούς  κίνησης. 

Σ’  αυτό  το  πρόγραμμα  χρησιμοποιούνται  μόνο  δύο  διαφορετικές  φιγούρες. 
Περισσότερες  ενδιάμεσες  φιγούρες  θα  δώσουν  ομαλότερη  κίνηση. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΒΕΜ  Ο  Δρομέας 
20  ΡΑΡΕΒ  0: ΙΝΚ  0,26 
30  ΡΕΝ  1 : ΙΝΚ  1,3 
40  Β0ΒΘΕΒ  6 
50  Μ0ΘΕ  0 
60  : 

70  5ΥΙΊΒ01.  240,0,0,0,0,1,1,1,0 

80  5ΥΜΒ0Ε  241,6,14,15,14,248,112,127,240 

90  5ΥΜΒ01  242,1,15,48,32,32,0,0,0 

100  5ΥΜΒ0Ε  243,252,4,7,0,0,0,0,0 

110  3ΥΜΒ01  244,0,0,0,0,0,0,0,1 

120  5ΥΜΒ0Ι.  245,0,0,0,0,6,14,207,238 

130  5ΥΜΒ0Ε  246,1,0,7,7,118,30,1,1 

140  3ΥΜΒ0Ε  247,120,240,240,220,0,0,0,192 

150  : 

160  γπ1$=ΟΗΒ$(240) +0ΗΒ$(  241 ) 

170  γγί2$=0ΗΒ$(242)  +  0ΗΒ$(243) 

180  γπ3$=0ΗΡ$(244)+0ΗΚ$(245) 

190  Γη4$=0ΗΒ$(246)+0ΗΒ$(247) 

200  : 

210  ΝΗΙΕΕ  ΕΕΝ(θ$)=0 

220  :  Ρ0Β  Χ  =  1  ΤΟ  19  5ΤΕΡ  2 

230  :  ίΟΟΑΤΕ  X, 15 

240  :  ΡΡΙΝΤ  γ η  1  $ 

250  :  ί,ΟΟΑΤΕ  X ,  16 

260  :  ΡΡΙΝΤ  γπ2$  · 

270  :  Ρ0Ρ  η=1  ΤΟ  100: ΝΕΧΤ 

280  :  ΕΟΟΑΤΕ  X, 15 

290  :  ΡΡΙΝΤ  5ΡΑ0Ε$(2) 

300  :  ίΟΟΑΤΕ  X, 16 

310  :  ΡΡΙΝΤ  5ΡΑ0 Ε$ ( 2 ) 

320  :  ΙΡ  X  =  1 9  ΤΗΕΝ  420:ΒΕΜ  Άκρη  οθόνης 

330  :  ΙΟΟΑΤΕ  Χ+1,15 

340  :  ΡΡΙΝΤ  γγι3$ 

350  :  ί,ΟΟΑΤΕ  Χ  +  1,16 

360  :  ΡΡΙΝΤ  γπ4$ 

370  :  Ρ0Ρ  π=1  ΤΟ  100: ΝΕΧΤ 

380  :  ΕΟΟΑΤΕ  Χ+1,15 

390  :  ΡΡΙΝΤ  5ΡΑ0Ε$(2) 

400  :  ΕΟΟΑΤΕ  Χ+1,16 

410  :  ΡΡΙΝΤ  5ΡΑ0 Ε$ ( 2 ) 

420  :  ΝΕΧΤ 
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430  :  3$=ΙΝΚΕΥ$ 

440  :  ΡΟΚ  η=1  ΤΟ  100:ΝΕΧΤ 
450  ΜΕΝβ 
460  ΜΟΟΕ  1 
470  ΕΝΡ 
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Π8  ΤΟ  ΣΚΟΥΛΗΚΙ 


Σ’  αυτό  το  πρόγραμμα  εμφανίζονται  κουκίδες  μπροστά  από  ένα  κυματοειδές 
σχήμα  και  χάνονται  πίσω  από  αυτό.  Σαν  αποτέλεσμα  έχουμε  ένα  μικρό 
σκουλήκι  να  σέρνεται  πάνω  στην  οθόνη. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  Το  σκουλήκι 
20  ΒΟΡΡΕΡ  26 
30  ΡΑΡΕΡ  0: ΙΝΚ  0,0 
40  ΡΕΝ  1: ΙΝΚ  1,24 
50  ΡΕΝ  2: ΙΝΚ  2,20 
60  Μ0ΡΕ  1 
70  : 

80  ΜΗΙΕΕ  Ι_ΕΝ(3$)=0 
90  :  ε  1  =  1 

100  :  Ρ0Ρ  η=1  ΤΟ  720 
110  :  Χ=η: ΙΕ  Χ>640  ΤΗΕΝ  Χ=640 

120  :  Ρ=π-80:ΐΡ  Ρ<0  ΤΗΕΝ  Ρ=0 

130  :  Υ=ΙΝΤ(200+15*5ΙΝ(Χ/6) ) 

140  :  Η=ΙΝΤ(200+15*5ΙΝ(Ρ/6)) 

150  :  ΙΡ  π/4=ΙΝΤ(π/4)  ΤΗΕΝ  ο  1  =  ε  1  + 1 

160  :  ΙΡ  εί=3  ΤΗΕΝ  εί=1 

170  :  ΡΕ0Τ  Χ,Υ,οΙ 

180  :  ΡΕ0Τ  Ρ,Η,Ο 

190  :  ΝΕΧΤ 

200  :  3$=ΙΝΚΕΥ$:ΡΕΜ  Πάτησε  οποιοδήποτε  πλήκτρο  για  να  σταματήσει 
210  ΜΕΝΡ 
220  : 

230  ΡΕΝ  1 
240  α$ 

250  ΕΝΡ 


23 


Π9  ΓΡΑΜΜΙΚΑ  ΣΧΗΜΑΤΑ 


Αυτό  το  πρόγραμμα  δημιουργεί  σχήματα  με  ευθείες  γραμμές  που  θυμίζουν 
τους  πίνακες  που  φτιάχνονται  με  κλωστές  και  καρφάκια.  Στην  αρχή  παίρνει 
τα  άκρα  των  γραμμών  αναφοράς  και  τον  αριθμό  των  σημείων  τομής  σε  κάθε 
γραμμή.  Στη  συνέχεια  υπολογίζει  τις  εξισώσεις  των  γραμμών  στη  μορφή  γ= 
γπ*χ+ο  και  τις  αποστάσεις  των  σημείων  τομής. 

Τελικά  το  πρόγραμμα  «βαδίζει»  πάνω  στις  δύο  γραμμές  αναφοράς  σχεδιάζο¬ 
ντας  ευθείες  γραμμές  για  να  δημιουργήσει  ένα  σχήμα  σαν  το  παρακάτω: 


ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Δώσε  τις  πληροφορίες  που  σου  ζητούνται. 


10  ΡΕΜ  Γραμμικά  σχήματα 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1 : ΙΝΚ  1,24 
40  ΒΟΡΡΕΡ  1 
50  Μ00Ε  1 
60  ΡΙΜ  Χ%( 4) 

70  ΡΙΜ  Υ%(4) 

80  : 


90  Ρ0Ρ  η=1  ΤΟ  4 

100  :  ΜΗΙΙΕ  Χ%(π)<1  0Ρ  Χ%(π)>639 

110  :  6051ΙΒ  660: ΡΕΜ  Γραμμή  και  σημείο 

120  :  ΙΝΡυΤ  «ΣΥΝΤΕΤΑΓΜΕΝΗ  X  (I  έως  639)»;  Χ%  (η) 

130  :  ΜΕΝϋ 

140  : 

150  :  ΝΗΙΕΕ  Υ%(η)<1  0Ρ  Υ%(η)>399 

160  :  ΟΟδίΙΒ  660: ΡΕΜ  Γραμμή  και  σημείο 

170  :  ΙΝΡυΤ  «ΣΥΝΤΕΤΑΓΜΕΝΗ  Υ  (1  ΕΩΣ  399)»;  Υ%  (π) 

180  :  ΜΕΝΰ 

190  ΝΕΧΤ 


200  : 


210  ΗΗΙΕΕ  Ν%<2 

220  :  01.5 

230  :  ΕΟΟΑΤΕ  1,4 
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240  :  ΙΝΡϋΤ  «ΑΡΙΘΜΟΣ  ΣΗΜΕΙΩΝ  (2  Ή  ΠΕΡΙΣΣΟΤΕΡΑ)».;  Ν% 

250  ΗΕΝΘ 
260  : 

270  Ν%=Ν%-1 

280  ΙΡ  Χ%( 1 ) =Χ% ( 2 )  ΤΗΕΝ  ΧΖ( 2) =Χ%( 2)+ 1 
290  ΙΡ  Χ%(3)=Χ%(4)  ΤΗΕΝ  ΧΖ(4)=Χ%(4)+1 
300  ΘΧ1=(ΧΖ(2)-Χ%(1))/Ν% 

310  ΘΧ2=(ΧΖ(4)-Χ%(3) )/ΝΖ 

320  Μ1=(Υ%(2)-Υ%(1))/(Χ%(2)-Χ%(1)) 

330  Μ2=(Υ%(4)-Υ%(3) )/(Χ%(4)-Χ%(3)) 

340  Β1=Υ%(1)-Μ1'*Χ%(1) 

350  Β2=Υ%(3)-Μ2*Χ%(3) 

360  : 

370  ΜΟΘΕ  2 
380  0Ε5 

390  ΡΕΟΤ  ΧΖ(1),Υ%(1) 

400  ΘΡΑΜ  ΧΖ(2),Υ%(2) 

410  ΡΕΟΤ  ΧΖ(3),Υ%(3) 

420  ΘΡΑΗ  ΧΖ(4),Υ%(4) 

430  : 

440  ΡΟΡ  Ι<=0  ΤΟ  ΝΖ 

450  :  0Χ1=Χ%(1)+Χ*ΘΧ1 

460  :  0Υ1=Μ1*(ΧΖ(1)  +  Ι<*[>Χ1)+Β1 

470  :  0Χ2=Χ%(4)-Χ*ΰΧ2 

480  :  ΟΥ2=Μ2*(Χ%(4)-Ι<*ΟΧ2)+Β2 

490  :  ΡΕΟΤ  0X1, 0Υ1 

500  :  ΘΡΑΜ  0X2, 0Υ2 

510  ΝΕΧΤ 

520  : 

530  ΜΗ 1 1_Ε  ΕΕΝ(3$)=0 
540  :  θ$=ΙΝΚΕΥ$ 

550  ΗΕΝΘ 

560  ΙΡ  3$=0ΗΡ$( 32 )  ΤΗΕΝ  ΡυΝ 

570  ΡΕΜ  Πάτησε  το  πλήκτρο  του  διαστήματος  για  νέο  σχέδιο 
580  : 

590  ΡΕΜ  Πάτησε  οποιοδήποτε  άλλο  πλήκτρο  για  να  σταματήσει  το  πρόγραμμα 

600  ΜΟΡΕ  1 

610  0Ε5 

620  ΕΝΘ 

630  : 

640  : 

650  ΡΕΜ  Παρουσίαση  της  γραμμής  και  του  αριθμού  των  σημείων  στην  οθόνη 
660  0Ε5 

670  ΕΟΟΑΤΕ  15,4 

680  ΙΡ  η<3  ΤΗΕΝ  ΡΡΙΝΤ  -ΠΡΩΤΗ  ΓΡΑΜΜΗ»»  ΕΕ5Ε  ΡΚΙΝΤ  «ΔΕΥΤΕΡΗ  ΓΡΑΜΜΗ». 
690  ΕΟΟΑΤΕ  15,8 

700  ΙΡ  π=1  ΟΡ  η  =  3  ΤΗΕΝ  ΡΡΙΝΤ  «ΠΡΩΤΟ  ΣΗΜΕΙΟ»»  ΕΕ5Ε  ΡΚΙΝΤ  «ΔΕΥΤ^ ΣΗΜΕΙΟ»» 


710  ΕΟΟΑΤΕ  1,16 
720  ΡΕΤυΡΝ 
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ΠΙΟ  ΜΑΝΤΕΨΕ  ΤΟΝ  ΑΡΙΘΜΟ 


Σ  ’  αυτό  το  πρόγραμμα  ο  υπολογιστής  παράγει  ένα  τυχαίο  ακέραιο  αριθμό 
μεταξύ  1  και  100  και  ο  παίκτης  πρέπει  να  μαντέψει  ποιος  είναι. 

Οι  οδηγίες  του  παιγνιδιού  περιέχονται  στο  πρόγραμμα.  Να  θυμάσε  ότι  κάθε 
εισαγωγή  αριθμού,  που  υποθέτεις  ότι  κρύβει  ο  υπολογιστής,  πρέπει  να  συνο¬ 
δεύεται  από  το  πάτημα  του  πλήκτρου  ΚΕΤυΚΝ. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  Μάντεψε  τον  αριθαό 
110  ΜΟύΕ  1 

120  ρριντ:ρριντ:ρριντ 

130  ΡΡΙΝΤ  «ΣΕ  ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΠΡΟΣΠΑΘΕΙΣ  ΝΑ» 

140  ΡΡΙΝΤ  «ΜΑΝΤΕΨΕΙΣ  ΕΝΑΝ  ΑΡΙΘΜΟ  ΜΕΤΑΞΥ  0  ΚΑΙ  100» 

150  ΡΡΙΝΤ  «ΠΟΥ  ΒΑΖΕΙ  Ο  ΥΠΟΛΟΓΙΣΤΗΣ». 

160  ΡΡΙΝΤ  «ΕΑΝ  ΜΑΝΤΕΨΕΙΣ  ΛΑΘΟΣ,  ΤΟΤΕ  Ο  ΥΠΟΛΟΓΙΣΤΗΣ» 

170  ΡΡΙΝΤ  «ΘΑ  ΣΟΥ  ΠΕΙ  ΑΝ  Ο  ΑΡΙΘΜΟΣ  ΣΟΥ  ΕΙΝΑΙ» 

180  ΡΡΙΝΤ  «ΠΟΛΥ  ΜΕΓΑΛΥΤΕΡΟΣ  Ή  ΠΟΛΥ  ΜΙΚΡΟΤΕΡΟΣ.  ΟΤΑΝ  ΤΕΛΕΙΩΣΕΙΣ» 
190  ΡΡΙΝΤ  «Ο  ΥΠΟΛΟΓΙΣΤΗΣ  ΘΑ  ΣΟΥ  ΔΩΣΕΙ  ΤΟ  ΜΕΣΟ  ΟΡΟ» 

200  ΡΡΙΝΤ  «ΤΟΥ  ΑΡΙΘΜΟΥ  ΤΩΝ  ΠΡΟΣΠΑΘΕΙΩΝ  ΣΟΥ». 

210  ΡΕΝ  2 

220  ρριντ:ρβιντ:ρριντ 

230  ΡΡΙΝΤ  «ΜΑΝΤΕΨΕ  ΤΟΝ  ΑΡΙΘΜΟ» 

240  ΡΕΝ  1 

250  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

260  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΕΚΙΝΗΣΕΙΣ» 

270  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=""  ΤΗΕΝ  270 
280  : 

290  ΜΟύΕ  0 
300  9οε5=0 
310  3ΐΐθΙΤΐρΐ5=0 
320  : 

330  3$="Υ" 

340  ΜΗΙΙ.Ε  3$="Υ"  0Ρ  3$=’Υ' 

350  01_5 

360  9065=9065+1 

370  ηιΜ>6Γ=ΙΝΤ(ΡΝΟ(ΤΙΜΕ)*100) 

380  ςοΓΓβεΐ=0 

390  : 

400  ΜΗ 1 1_Ε  Ν0Τ  εοΓΓθεΐ 

410  ΡΕΝ  1 

420  ίΟΟΑΤΕ  1,12: ΡΡΙΝΤ  «ΒΑΛΕ  ΕΝΑΝ  ΑΡΙΘΜΟ» 

430  ΙΝΡΙΙΤ  90655 

440  015 

450  ΙΡ  90655<ηυπιδθΓ  ΤΗΕΝ  ΡΕΝ  2:1_ΟΟΑΤΕ  1,12: 

ΡΡΙΝΤ  «ΠΟΛΥ  ΜΙΚΡΟΤΕΡΟΣ» 

460  ΙΡ  9065  5>ηυιπΐ3θΓ  ΤΗΕΝ  ΡΕΝ  3:ΙΟΟΑΤΕ  1,12: 

ΡΡΙΝΤ  «ΠΟΛΥ  ΜΕΓΑΛΥΤΕΡΟΣ» 

470  ΙΡ  9υθ55=πυπιβ6Γ  ΤΗΕΝ  ΡΕΝ  4 : 1_ΟΟΑΤΕ  1,12: 

ΡΡΙΝΤ  «ΣΩΣΤΟ»:  ΟοιτεοΙ-Ι 
480  Ρ0Ρ  ϊ=1  ΤΟ  500: ΝΕΧΤ  ϊ 

490  3ί  ΐθΓΠρΐ  5  =  3ΐΐθΓΠρΪ5  +  1 

500  ΝΕΝΟ 
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510  : 

520  01.5 

530  1.00 ΑΤΕ  1,12:ΐΝΡυΤ«ΘΕΣ  ΝΑ  ΕΠΑΝΑΛΑΒΕΙΣ  (Υ/Ν)»,  3$ 

540  ΜΕΝΰ 
550  : 

560  005 

570  3νθΓ39θ  =  3ΐΐθΠΐρΐ5/90θ5 

580  1.00 ΑΤΕ  1,12:ΡΚΙΝΤ  «ΕΧΕΙΣ  ΜΕΣΟ  ΟΡΟ»;  3νεΓ3βε;  «ΠΡΟΣΠΑΘΕΙΕΣ 
ΑΝΑ  ΑΡΙΘΜΟ» 

590  ΙΡ  3νβΓ39θ<7  ΤΗΕΝ  1.00ΑΤΕ  1,15: ΡΠΙΝΤ  «ΠΟΛΥ  ΚΑΛΑ» 

600  ΕΝ0 
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Π11  ΤΕΣΤ  ΑΝΤΙΔΡΑΣΗΣ 


Το  πρόγραμμα  αυτό  μπορεί  να  σε  βοηθήσει  να  αναπτύξεις  τις  ικανότητές 
σου  στην  πληκτρολόγηση.  Ο  υπολογιστής  εμφανίζει  ένα  τυχαία  επιλεγμένο 
χαρακτήρα  στην  οθόνη  και  αρχίζει  να  χρονόμετρά  την  αντίδρασή  σου. 

Σκοπός  του  παιχνιδιού  είναι  να  πατήσεις  το  συγκεκριμένο  πλήκτρο  όσο  πιο 
γρήγορα  γίνεται. 

Όταν  το  πρόγραμμα  τελειώσει,  εμφανίζεται  στην  οθόνη  ο  μέσος  χρόνος 
των  αντιδράσεων  σου. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΒΕΜ  Πρόγραμμα  -  Τεστ  αντίδρασης 
110  ΜΟΡΕ  1 

120  ΒΟΒΡΕΒ  6:  ΙΝΚ  2,17: 1 ΝΚ  1,0:  ΡΑΡΕΚ  2:01.5 
130  1.00  ΑΤΕ  12,2:  ΡΕΙΝΤ  «ΤΕΣΤ  ΑΝΤΙΔΡΑΣΗΣ» 

140  ΙΟΟΑΤΕ  6,6:  ΡΕΙΝΤ  «ΠΟΣΕΣ  ΠΡΟΣΠΑΘΕΙΕΣ  ΘΕΛΕΙΣ  ΝΑ  ΚΑΝΕΙΣ»; 
150  ΙΝΡΙΙΤ  ηο.οί  .3ΐΐθΓηρί5 

160  ΙΟΟΑΤΕ  6,8:  ΡΕΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΙΙΟΤΕ  ΠΛΗΚΤΡΟ» 

:ΡΕ  ΙΝΤ  «  ΓΙΑ  ΝΑ  ΞΕΚΙΝΗΣΕΙΣ»; 

170  ζ$=ΙΝΚΕΥ$: I Ρ  ζ$=""  ΤΗΕΝ  170 
180  ΜΟΡΕ  0 

190  Ρ0Ε  ΙθΐΐθΓ  =  1  ΤΟ  ηο.οί -3ΐΐθπηρΐ$ 

200  005 

210  ΐ=ΤΙΜΕ 

220  χ=ΙΝΤ(ΒΝΡ(6)*20)+1:χ=ΙΝΤ(ΒΝΡ(6)*25)+1 

230  3$=0ΗΒ$(ΙΝΤ (ΒΝΡ(6)*26)+65) 

240  ΙΟΟΑΤΕ  χ,γ: ΡΕΙΝΤ  3$ 

250  6$=υΡΡΕΒ$(ΙΝΚΕΥ$):ΐΡ  ό$<>3$  ΤΗΕΝ  250 
260  ΐοΐ  .  ΐ  ϊπΐθ=ΐοί  .ΐ  ίπΐθ+(ΤΙΜΕ-ΐ  ) 

270  ΝΕΧΤ  Ιθϊϊθγ 
280  : 

290  Μ0ΡΕ  1:01.5 

300  ΙΟΟΑΤΕ  1,10:  ΡΕΙΝΤ  «ΑΡΙΘΜΟΣ  ΠΡΟΣΠΑΘΕΙΩΝ»; 

υ5ΙΝ6  "/Μ###.##"; ηο.οί  .3ίΐθΐηρΐ$ 

310  ΡΕΙΝΤ«ΟΛΙΚΟΣ  ΧΡΟΝΟΣ»ίυ5ΙΝΟ"#####.##";ΐοΐ  .  ΐ  ίπ)ε/300; 
315  ΡΕΙΝΤ «ΔΕΥΤΕΡΟΛΕΠΤΑ» 

320  ΡΕΙΝΤ  ..Ο  ΜΕΣΟΣ  ΧΡΟΝΟΣ  ΑΝΤΙΔΡΑΣΗΣ  ΗΤΑΝ»;  ΙΙ5ΙΝΟ 
ΐοΐ  .  ί  ϊπίθ/ηο.οί  .3ΐΐθ(ηρΐ 5/300; 

325  ΡΕΙΝΤ  «ΔΕΥΤΕΡΟΛΕΠΤΑ» 

330  ΕΝΡ 
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Π12  ΜΑδΤΕΚΜΙΝϋ 


Αυτό  το  πρόγραμμα  εφαρμόζει  την  πρώτη  έκδοση  του  πολύ  γνωστού  παιχνι¬ 
διού  της  ΙηνϊοΙα  Εΐά. 

Σκοπός  του  παιγνιδιού  είναι  ο  προσδιορισμός  των  χρωμάτων  τεσσάρων  τε¬ 
τραγώνων  στην  οθόνη.  Ο  παίκτης  έχει  μέχρι  είκοσι  προσπάθειες  για  να  τα 
βρεί. 

Όταν  εισάγεις  ένα  συνδυασμό  χρωμάτων,  ο  υπολογιστής  απαντάει  δείχνο¬ 
ντας  εάν  έχεις  ένα  σωστά  χρωματισμένο  τετράγωνο  στη  σωστή  θέση  ή  ένα 
σωστά  χρωματισμένο  τετράγωνο  σε  λάθος  θέση. 

Για  κάθε  σωστό  χρώμα  στη  σωστή  θέση,  ο  υπολογιστής  εμφανίζει  μια  παύ¬ 
λα  χρώματος  μωβ  στα  δεξιά  του  συνδυασμού  σου. 

Γ ια  κάθε  σωστό  χρώμα  σε  λάθος  θέση,  ο  υπολογιστής  εμφανίζει  μια  παύλα 
χρώματος  μπλε  στα  δεξιά  του  συνδυασμού  σου. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Βάλε  το  συναδυασμό  που  υποθέτεις,  όπως  π.χ.  ΚΟΥΒ, 
όπου  Κ=κόκκινο,  0=πράσινο,  Υ=κίτρινο,  Β=μπλε  κ.λπ. 


100  ΒΕΜ  Πρόγραμμα  -  Μ35ΐεπηίη<1 
110  ΜΟΰΕ  0 

120  ΡΙΜ  οοΙουΓ(3),9υθ55(3)/·τθΓπρ(3) 

130  5ΥΜΒ0Ε  244,0,255,255,255,255,255,255,255 
140  Ιπθ=0 

150  ΙΝΚ  1,6: ΙΝΚ  2,18:ΙΝΚ  3,24:ΙΝΚ  4,2:ΙΝΚ  5,8: I ΝΚ  6,10 
160  Β0Ρ0ΕΡ  16: ΡΑΡΕΡ  10:015 

170  ΕΟΟΑΤΕ  2, 1 : ΡΡΙΝΤ  0ΗΡ$(244)+"  "+0ΗΡ$(244)+"  "+ 

0ΗΡ$(244)+"  "+0ΗΡ$(244) 

180  Ρ0Ρ  ϊ=0  ΤΟ  3 

190  εοίουΓί  ϊ )=ΡΙΧ(ΡΝ0(ΤΙΜΕ)*3)+1 
200  ίθπιρί  ϊ)=οοΙουΓ(ι ) 

210  ΝΕΧΤ  ϊ 
220  : 

230  ΜΗΙΕΕ  ρε<>4  ΑΝΰ  Ιπθ<>20 
240  1ηβ=1ηθ+1 

250  Ρ0Ρ  ϊ=0  ΤΟ  3 

260  εοίουτί  ϊ  )  =  ΐθ(ηρ(  ϊ ) 

270  ΝΕΧΤ  ϊ 

280  : 

290  ΡΕΝ  7 

300  ΕΟΟΑΤΕ  1,25:  ΙΝΡυΤ  «ΠΟΙΟΣ  ΕΙΝΑΙ  Ο  ΣΥΝΔΥΑΣΜΟΣ  ΣΟΥ»;  ρβΐιϊ 

310  ρ3ΐτ$=υρρΕΡ$(ρ3ΐΐ$) 

320  ΕΟΟΑΤΕ  1,25:ΡΒΙΝΤ  5ΡΑ0Ε$(2Ο); 

330  : 

340  Ρ0Ρ  ϊ=0  ΤΟ  3 

350  9υθ$5(ι)=0 

360  ΙΡ  ΜΙ0$(ο3τΐ$,ι+1,1)="Ρ"  ΤΗΕΝ  9υβ35(ι)=1 
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370  ΙΡ  ΜΙΡ$(ρ3ΐ1:$,ϊ  +  1,1)="6"  ΤΗΕΝ  9υθ55(ϊ)=2 

380  ΙΡ  ΜΙΡ$(ρ3ΐί$,ϊ+1,1)="Υ"  ΤΗΕΝ  9υθ5δ(ϊ)=3 

390  ΙΡ  ΜΙΰ$(ρ3ΐΐ$,ϊ+1χ1)="Β"  ΤΗΕΝ  9υβ55(ΐ)=4 

400  ΡΕΝ  9υβ5δ( ΐ ) 

410  ΕΟΟΑΤΕ  2+ι*2,Ιηβ+1:ΡΚΙΝΤ  0ΗΚ$(244>; 

420  ΝΕΧΤ  ί 

430  : 

440  ρε=0:εε=0 

450  ΡΟΡ  ΐ=0  ΤΟ  3 

460  ΙΡ  9υ65$( ϊ )=εοΙουΓ( ί )  ΤΗΕΝ  ρε=ρο+1 : εοίουτ ( ι )=10 

9υβ55( ϊ )=1 1 

470  ΝΕΧΤ  ϊ 

480  : 

490  ΡΟΡ  ί=0  ΤΟ  3 

500  ΡΟΡ  ϊ=0  ΤΟ  3 

510  ΙΡ  9υε$δ( ί )=εοΙουτ( ϊ )  ΤΗΕΝ  εε=εε+1: 

εοίουτί ))=10: }=3 

520  ΝΕΧΤ  ϊ 

530  ΝΕΧΤ  ϊ 

540  : 

550  ΙΡ  ρε=0  ΤΗΕΝ  590 

560  ΡΕΝ  5 

570  ΡΟΡ  ϊ  =  1  ΤΟ  ρ ε : ΕΟΟΑΤΕ  10+ϊ*2,Ιπθ+1: 

ΡΡΙΝΤ  0ΗΡ$(244),-:ΝΕΧΤ  ϊ 
580  : 

590  ΙΡ  εε=0  ΤΗΕΝ  630 

600  ΡΕΝ  6 

610  ΡΟΡ  ί=1  ΤΟ  εε: ΕΟΟΑΤΕ  10+ρε*2+ ϊ *2, Ιπθ+ 1 : 

ΡΡΙΝΤ  0ΗΡ$(244);:ΝΕΧΤ  1 
620  : 

630  ΜΕΝΡ 
640  ΡΕΝ  7 
650  : 

660  ΙΡ  ρε<>4  ΤΗΕΝ  740 
670  ζ=ΤΙΜΕ 

680  ΜΗΙΕΕ  ( (ΤΙΜΕ-ζ)/300Χ5:ΜΕΝβ 
690  0Ε8 

700  ΕΟΟΑΤΕ  1 , 13:  ΡΡΙΝΤ  «ΜΠΡΑΒΟ!!!» 

710  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

720  ΡΡΙΝΤ  «ΕΚΑΝΕΣ»;  Ιίηε;  «ΠΡΟΣΠΑΘΕΙΕΣ» 

730  ΟΟΤΟ  820 
740  0Ε3 

750  ΕΟΟΑΤΕ  1,10:ΡΡΙΝΤ  «Ο  ΣΩΣΤΟΣ  ΣΥΝΔΥΑΣΜΟΣ  ΗΤΑΝ:» 

760  : 

770  ΡΟΡ  ϊ=0  ΤΟ  3 
780  ΡΕΝ  I θπιρ (  ί ) 

790  ΕΟΟΑΤΕ  10+ ί *2, 12: ΡΡΙ ΝΤ  0ΗΡ$(244); 

800  ΝΕΧΤ  ί 
810  ΡΡΙΝΤ 
820  ΕΝΡ 
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Π13  ΟΟΒΒΕΕ 


Σ’  αυτό  το  πρόγραμμα  δείχνουμε  τα  αποτελέσματα  που  επιτυγχάνονται  με  α¬ 
πλά  γραφικά  σχήματα. 

Έχουμε  δύο  ζωάκια  που  τρώνε  μια  περιοχή  με  γρασίδι. 

Το  παιχνίδι  παίζεται  από  δύο  παίκτες·  καθένας  παίρνει  το  μέρος  ενός  ζώου. 


Ο  παίκτης  1  χρησιμοποιεί  τα  πλήκτρα  Α  $ 

Ζ 

[ 

Ο  παίκτης  2  χρησιμοποιεί  τα  πλήκτρα  ;  ] 

Αν  ένας  παίκτης  αφήσει  την  περιοχή  με  το  γρασίδι  ή  πάει  να  φάει  μέρος  του 
γρασιδιού  που  έχει  ήδει  φαγωθεί,  πεθαίνει. 

Κάθε  φορά  που  τρώγεται  το  γρασίδι,  προστίθενται  βαθμοί 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  ΟοόΜε 
110  : 

120  ΡΕΜ  Καθορισμός  της  περιοχής  με  το  γρασίδι 
130  Μ0ΘΕ  0 

140  Β0ΡΘΕΡ  6: ΙΝΚ  1 ,2: 1 ΝΚ  2,18:ΡΑΡΕΡ  2· 

150  : 

160  ΡΕΜ  Δίνει  αρχικές  τιμές  στις  παραμέτρους 
170  ΘΙΜ  χ(2),χ(2),άχ(2),άγ(2),5εοΓε(2) 

180  χ( 1 )=1: χ ( 2)=640: γ( 1 )=200: χ(2)=200 
190  3=1: ό=2 
200  1139=0 
210  : 

220  ΡΕΜ  Δημιουργεί  το  παιχνίδι 
230  ΝΗΙΙΕ  Ν0Τ  93Πΐθ.ονθΓ 

240  όγ(1)=((ΙΝΚΕΥ(71)=0)-(ΙΝΚΕΥ(59)=0))*2 

250  άγ(2)=((ΙΝΚΕΥ(22)=0)-(ΙΝΚΕΥ(17)=0))*2 

260  όχ(1)=((ΙΝΚΕΥ(69)=0)-(ΙΝΚΕΥ(60)=0))*4 

270  άχ(2)=((ΙΝΚΕΥ(28)=0)-(ΙΝΚΕΥ(19)=0))*4 

280  Ε0Ρ  ί=3  ΤΟ  ό 

290  ΙΕ  άχ( ί )+όχ( ϊ )=0  ΤΗΕΝ  310 

300  ΙΕ  ΤΕ5Τ(χ(ΐ)+αχ(ϊ),γ(ΐ)+όγ(ΐ))<>2  ΤΗΕΝ 

605υΒ  410  Ε15Ε  60$υΒ  470 
310  ΝΕΧΤ  ϊ 

320  ΝΕΝΰ 
330  : 

340  ΡΕΜ  Παρουσίαση  του  αποτελέσματος 
350  Μ0ΘΕ  0:01.5 

360  ΕΟΟΑΤΕ  1,10:ΡΡΙΝΤ  «Ο  ΠΑΙΚΤΗΣ  I  ΕΦΕΡΕ»;  εεοτε  (I) 
370  ΕΟΟΑΤΕ  1,14:ΡΡΙΝΤ  «Ο  ΠΑΙΚΤΗΣ  2  ΕΦΕΡΕ»;  εεοτε  (2) 
380  ΜΗΙΕΕ  ΙΝΚΕΥ$<>"":ΗΕΝΟ 
390  ΕΝΡ 
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400  ΡΕΜ  Ρουτίνα  Υια  τη  λήξη  του  παιχνιδιού 
410  ΡΡΙΝΤ  0ΗΡ$(7);0ΗΡ$(7);0ΗΚ$(7) 
420  ΙΕ  1  =  1  ΤΗΕΝ  3  =  2  ΕΕ5Ε  8=1 
430  ίΐ39=ίΐ39+1 

440  ΙΕ  ί  139=2  ΤΗΕΝ  93Π>β.ουθΓ  =  -1 
450  ΡΕΤίΙΡΝ 

460  ΡΕΜ  Ρουτίνα  για  τη  μετακίνηση  των  ζώων 
470  χ( ϊ )  =  χ( ι )+άχ( ϊ  ) 

480  γ( ϊ )=γ( ϊ )+άγ( ϊ ) 

490  ρ=(ΐ  =  1)*-1  +  ( ΐ  =2 ) *— 3 
500  ΰΡΑΜ  χ( ϊ ),/( ϊ ),ρ 
510  $εοΓθ( ί )=$οογθ( ϊ )+1 
520  ΡΕΤυΡΝ 
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Π14  ΤΕΝΝΙΣ 


Αυτή  είναι  μια  διασκευή  ενός  παλιού  παιχνιδιού  νίάεο.  Έχουμε  δύο  παί¬ 
κτες  που  παίζουν  τέννις  σε  ένα  πράσινο  γήπεδο. 

Ο  παίκτης  1  χρησιμοποιεί  τα  πλήκτρα  Ζ  και  X  για  να  κινήσει  τη  ρακέτα  του. 
Ο  παίκτης  2  χρησιμοποιεί  τα  πλήκτρα  /  και  \  για  να  κινήσει  τη  ρακέτα  του. 

Το  αποτέλεσμα  εμφανίζεται  στην  κορυφή  της  οθόνης. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Το  παιγνίδι  δεν  αρχίζει  αν  δεν  πατηθεί  ένα  οποιδήποτε  πλήκτρο. 


100  ΡΕΜ  Πρόγραμμα  -  Τέννις 
110  Ρ3ΐ1δ.1είί=10 
120  ΡΙΜ  903 I 5 ( 2 ) 

130  ΙΝΚ  2, 18: ΡΑΡΕΡ  2:  01_5  ΠΡΑΣΙΝΟ  ΓΗΠΕΔΟ 
140  5 ΥΜΒ0Ι_  244, 0,0,24,60,60; 24 ,0,0 
150  5ΥΜΒ0Ε  245,24,24,24,24,24,24,24,24 
160  ό3ί  1$=0ΗΡ$(244):υηΡ3ΐ  1$="  " 

170  Ρ3ΐ$=0ΗΡ$(245) 

180  υηΡ3ΐ$="  " 

190  Ρχ=2:Ρχ=19:δρεΡ=5 
200  1.00 ΑΤΕ  Ρχ, 1 1 : ΡΡΙΝΤ  031$ 

210  Ι.ΟΟΑΤΕ  Ρχ,11:ΡΡΙΝΤ  Ρ3ΐ$ 

220  ρί3/θΓ . 1  =  1 1:ρΐ3γεΓ .2=1 1 

230  Μ0ΡΕ  0:01.5 

240  ΜΗΙΕΕ  ΙΝΚΕΥ$="": ΜΕΝΡ 

250  Β0ΡΡΕΡ  6 

260  χ %= 10: >%=13 

270  ΙΕ  ΡΝΡ(6)>0.5  ΤΗΕΝ  άχ%=-1  Ε1.5Ε  άχ%=1 

280  ΙΡ  ΡΝΡ ( 6 ) >0 . 5  ΤΗΕΝ  Ρχ%=-1  Ε1.5Ε  άχ%=  1 

290  ΡΕΝ  0 

300  ΜΗΙ1.Ε  Ρ3ΐ1δ.1είΐ>0 
310  ιιι=πι+  1 

320  ΙΡ  πΚδρεθ  ΤΗΕΝ  60Τ0  380 

330  1-ΟΟΑΤΕ  χ%,χ%: ΡΡΙΝΤ  υπΡβΙΙί; 

340  χ%=χ%+άχ%:χ%=χ%+Ρχ% 

350  ΙΡ  χ%<2  0Ρ  χ%>24  ΤΗΕΝ  άγΖ=~ύγΧ  ΆΝΑΠΗΔΗΣΗ  ΣΤΟΝ  ΤΟΙΧΟ 
360  1.00ΑΤΕ  χ%,χ%:  ΡΡΙΝΤ  ΡβΙΙ$; 

370  : 

380  ΡΕΜ  Εξετάζει  αν  κινείται  η  ρακέτα 

390  ά.ρ ΐ3γβΓ . 1=( ΙΝΚΕΥ(71 )=0)  -  ( ΙΝΚΕΥ(63)=0) 

400  ά.ρΐ3χεΓ.2=(ΙΝΚΕΥ(30)=0)  -  ( ΙΝΚΕΥ(22)=0) 

410  ΐειπρ .  1=ρί3γεΓ  .  1+ά  .ρΐ3γεΓ  .  1 

420  Τεπιρ.2=ρΐ3χεΓ.2+ά.ρΐ3γεΓ.2 

430  ΙΡ  ΐειπρ.  1<24  ΑΝΡ  ΐεαιρ - 1>2  ΤΗΕΝ  ίΟΟΑΤΕ  Ρχ,ρ  13/εε  .  1 : 

ΡΡΙΝΤ  υπί)3ΐ$; :  1.00ΑΤΕ  Ρχ  ,  ΐειπρ .  1 :  ΡΡ I ΝΤ  Ρ3ΐ$;:  ρΐ3/ετ  .  1  =  ΐ ειτιρ .  1 
440  ΙΡ  ΐεπιρ. 2<24  ΑΝΡ  ΐειπρ. 2>2  ΤΗΕΝ  ΙΟΟΑΤΕ  Ρχ,ρΐ3χεΓ.2: 

ΡΡΙΝΤ  υπΡ3ΐ$; :  ίΟΟΑΤΕ  Ρχ, ΐειπρ .  2:  ΡΡΙΝΤ  Ρ3ΐ$; : ρί3χεΓ  .2=ΐειπρ.2 
450  ΙΡ  πΚδρεό  ΤΗΕΝ  60Τ0  500  ΕΕ5Ε  ιτι=  1 

460  ΙΡ  χ%=Ρχ  ΑΝΡ  χ%=ρΐ3χεΓ.2  ΤΗΕΝ  ΡΡΙΝΤ  0ΗΡ$(7): 

άχ%=-€ΐχ% 

470  ΙΡ  χ%>Ρν  ΤΗΕΝ  Κ=1:605υΒ  550 
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480  ΙΡ  χ%=6χ  ΑΝϋ  /%=ρΐ3γθΓ.1  ΤΗΕΝ  ΡΡΙΝΤ  0ΗΡ$(7): 
0χ%=- οΙχ% 

490  ΙΡ  χ%<6χ  ΤΗΕΝ  Κ=2:605ϋΒ  550 
500  ΝΕΝϋ 

510  ΗΗΙΕΕ  ΙΝΚΕΥ$Ο"":ΜΕΝ0 
520  ΕΝΡ 

530  Ρ  ΕΜ  Ρουτίνα  για  την  αναπήδηση  στον  τοίχο 
540  ΡΕΜ  Ρουτίνα  για  το  αποτέλεσμα 
550  ΡΡΙΝΤ  0ΗΡ$(7) 

560  ΐ33ΐΐ5.ΐθη=ΐ)3ΐΐ5.ΐθη-ι 
570  903ί5(Ι<)=903ΐ5(Κ)  +  1 

580  ΕΟΟΑΤΕ  (Ι<-1)*16+1,1:ΡΡΙΝΤ  ΕΙ51Ν6  "##";9°3ΐ5(ΙΟ 

590  ΕΟΟΑΤΕ  χ%//%: ΡΡΙΝΤ  υη&3ΐΙ$; 

600  χ%=10 

610  ΡΕΤυΡΝ 


Π15  ΒΟΜΒΕΣ 


Σ’  αυτό  το  πρόγραμμα,  ο  χρήστης  πρέπει  να  προστατέψει  την  πόλη  του  από 
τις  επιθέσεις  που  προέρχονται  από  τον  ουρανό.  Ο  αμυνόμενος  μπορεί  να 
χρησιμοποιήσει  το  όπλο  του  (ΕΑΖΕΚ)  για  να  καταστρέψει  τις  βόμβες  καθώς 
εμφανίζονται  τυχαία  στην  κορυφή  της  οθόνης. 

Τα  πλήκτρα  που  κινούν  το  δρομέα  χρησιμοποιούνται  για  να  μετακινούν  το 
όπλο  και  το  πλήκτρο  ΟΟΡΥ  για  να  το  πυροδοτεί. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΚΕΜ  Πρόγραμμα  -  Βόμβες 
110  Η39=0:ί=0 
120  ΜΟΰΕ  1 

130  5ΥΜΒ0Ε  244,255,153,153,255,255,129,129,255 
140  5ΥΜΒ0Ε  245,24,126,231,219,219,231,126,0 
150  3ΥΜΒ0Ε  246,231,102,60,24,24,24,24,24 
160  8ΥΜΒ0Ε  247,0,0,0,24,24,0,0,0 
170  5ΐΐθΙΙ$=0ΗΚ$(247) 

180  ύε>πιύ$=0ΗΚ$(226) 

190  ό$=0ΗΡ$(245): ε$=0ΗΚ$(244) 

200  ε2$=ε$+ε$ 

210  ε3$=ε2$+ε$ 

220  ε7$=ε3$+ε2$+ε2$ 

230  ε 10$=ε7$+ε3$ 

240  ε16$=ε7$+ε7$+ε2$ 

250  ε18$=ε2$+ε16$ 

260  ΡΕΝ  1 

270  ΕΟΟΑΤΕ  5, 19: ΡΚΙΝΤ  ε3$+5ΡΑ0Ε$(4)+ε2$+5ΡΑ0Ε$(2)+ε3$ 
+$ΡΑ0Ε$(3)+ε3$+$ΡΑ0Ε$(4)+ε3$ 

280  ΡΚΙΝΤ  5ΡΑ0Ε$(4)+ε3$+5ΡΑ0Ε$(4)+ε2$+5ΡΑ0Ε$(2)+ε3$+ 
5ΡΑ0Ε$(3)+ε3$+$ΡΑ0Ε$(4)+ε3$ 

290  ΡΚΙΝΤ  5ΡΑ0Ε$(4)+ε3$+"  ”+ε10$+5ΡΑΟΕ$(3)+ε18$ 

300  ΡΚΙΝΤ  ε7$+"  "+ε1Ο$+5ΡΑ0Ε$(3)+ε18$ 

310  ΡΚΙΝΤ  ε7$+"  "+ε1Ο$+5ΡΑ0Ε$(3)+ε18$ 

320  ΡΚΙΝΤ  5ΡΑ0Ε$(4)+ε3$+"  "+ε1Ο$+5ΡΑ0Ε$(3)+ε18$ 

330  ΡΚΙΝΤ  5ΡΑ0Ε$(4)+ε3$+"  "+ε10$+5ΡΑΟΕ$(3)+ε18$; 

340  : 

350  3=20 

360  η=ΙΝΤ(ΡΝ0(6)*38)+1 

370  ζ=1 

380  ΜΟνΕ  0,0 

390  ΕΟΟΑΤΕ  25, 1 :  ΡΚΙΝΤ  «ΟΙ  ΒΟΜΒΕΣ  ΠΡΟΣΓΕΙΩΘΗΚΑΝ»;:  Ηίι=0 
400  ΕΟΟΑΤΕ  1,1: ΡΚΙΝΤ  «ΟΙ  ΒΟΜΒΕΣ  ΕΣΚΑΣΑΝ»;:  61351=0 
410  γ=β:5=18 
420  : 

430  ΜΗΙΕΕ  ΜΚ555 

440  ΕΟΟΑΤΕ  35,1:ΡΚΙΝΤ  Πϊΐ; 

450  ί ιγθ=( ΙΝΚΕΥ(9)=0) 

460  Ιθίΐ=(ΙΝΚΕΥ(8)=0) 

470  ΓΪ9θΐ=(ΙΝΚΕΥ(1)=0) 

480  ΙΡ  ΡίΓθ  ΑΝϋ  Ρΐ39=0  ΤΗΕΝ  ί 139= 1 : Γ=3 : ΡΚΙ ΝΤ  0ΗΚ$(7); 
490  ΙΡ  ΐ  Ε 39=  1  ΤΗΕΝ  ΕΟΟΑΤΕ  γ,5-1:ΡΚΙΝΤ  5ΗθΙΙ$,-: 

ΕΟΟΑΤΕ  Γ ,5 : ΡΚ I ΝΤ  "  ";:605υΒ  640:5=5-1 
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500  |<=ΐθη-Γϊ9^ί  +  (9=39)-.(,3_1) 

510  1_Ο0  ΑΤΕ  3,  18:  ΡΡΙΝΤ  ; 

520  ι_(ΚΑΤΕ  3+Ι<,  18:  ΡΡΙΝΤ  6$; 

540  9=620*6/40: 6=400* (25-ζ-Ι )/25 

550  π=(ΤΕ5Τ(9,6)=1) 

560  ΙΕ  1=1  ΤΗΕΝ  ίΟΟΑΤΕ  6,ζ:ΡΡΙΝΤ 

ΡΡΙΝΤ  6ογτι6$;:ζ=ζ  +  1 
570  ί  =  ( ί  +  1 )  ΜΟΡ  3 

580  ΙΕ  ζ  =  24  ΟΡ  9  ΤΗΕΝ  1_00  ΑΤΕ  6,ζ:ΡΡΙΝΤ  "  '·; :  ΕΟΟ  ΑΤΕ  6,ζ+1: 

ΡΡΙΝΤ  "  ";:ζ=2:6=ΙΝΤ(ΡΝΡ(6)*40)+1:6ϊΐ=6ϊΐ+1 
590  ΗΕΝΡ 
600  ΕΝΡ 
610  : 


:  ΕΟΟ  ΑΤΕ  6,ζ+1: 


620  : 

630  ΡΕΜ  Ρουτίνα  έκρηξης 
640  ΐ=(6=Γ)  ΑΝΡ  (5=ζ+1) 

650  ΙΕ  ΐ  ΤΗΕΝ  50ϋΝΡ  1 ,200, 10,7,0,0, 1 : 6 1 351  =  6 1 35ΐ  + 1 : 1.00 ΑΤΕ  14,2: 

ΡΡΙΝΤ  6ΐ35ΐ;:ζ=2:6=ΙΝΤ(ΡΝΡ(6)*40)+1 
660  ΙΕ  I  ΟΡ  5=3  ΤΗΕΝ  1 I 39=0: ΕΟΟΑΤΕ  γ,5-1:ΡΡΙΝΤ  "  ":|_ΟΟΑΤΕ  Γ,5: 

ΡΡΙΝΤ  "  ":ΡΡΙΝΤ  "  : γ=3: 5=19 

670  ΡΕΤυΡΝ 


5  προσγειώθηκαν  1  έσκασαν  3ί» 


I 


ΰ 
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Π16  ΤΟ  ΝΗΣΙ  ΤΩΝ  ΤΕΡΑΤΩΝ 


Σ  ’  αυτό  το  πρόγραμμα  έχεις  προσγειωθεί  σε  ένα  ηφαιστειογενές  νησί  και  σε 
καταδιώκουν  αδηφάγα  τέρατα. 

Η  μόνη  σου  ελπίδα  είναι  να  οδηγήσεις  τα  τέρατα  στις  τρύπες  του  ηφαίστειου 
πάνω  από  τις  οποίες  εσύ  μπορείς  να  πηδήξεις. 

Χρησιμοποίησε  τα  πλήκτρα  ελέγχου  του  δρομέα  για  να  μετακινήσεις  τον 
άνθρωπο.  Σημείωσε  ότι  το  πρόγραμμα  μπορεί  να  σε  ξεγελάσει. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Το  νησί  των  τεράτων 
110  ΜΟΡΕ  1:μ=40: ΒΟΡΡΕΡ  6 

120  ΕΟΟΑΤΕ  2,10:  ΙΝΡΙΠ  «Ταχύτητα  (1  ως  5)··;  $ρεά:  5ρεά=  6  -  ερεά 
130  015 
140  εουηΐ=0 
150  άθ3ό=0 

160  πι=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*5)+1:ρ=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*5)+3 
170  ΡΙΜ  Γηοη$((τ>,2),ιτΐ3η(2) 

180  εί$="  " 

190  : 

200  5ΥΜΒ0Ε  244,31,124,200,248,248,120,60,31  'ΤΕΡΑΣ 

210  5ΥΜΒ0Ε  245,60,126,255,254,254,62,30,28  ΛΑΚΟΣ 

220  5ΥΜΒ0Ε  246,28,28,8,127,28,20,20,54  ΆΝΘΡΩΠΟΣ 

230  : 

240  Ρ0Ρ  ϊ  =  1  ΤΟ  ιη 

250  πιοηεί  ί,Ι  )  =  ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*ιν)  +  1 
260  Π)0Π5( ί,2)=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*25)+1 

270  ΡΕΝ  1 

280  ΕΟΟΑΤΕ  (ποπεί  ϊ  ,  1 )  ,Π)0Π5(  ϊ  ,2 ) :  ΡΡΙΝΤ  0ΗΡ$(244); 

290  ΝΕΧΤ  ϊ 
300  : 

310  Ρ0Ρ  ϊ=1  ΤΟ  ρ 
320  χ  =  ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*ν/)  +  1 

330  γ=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*25)+1 
340  ΡΕΝ  3 

350  ΕΟΟΑΤΕ  χ,γ:ΡΡΙΝΤ  0ΗΡί(245); 

360  ΝΕΧΤ  ϊ 
370  : 

380  (Π3Π(  1)  =  ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*νν)+1 
390  (Π3η(2)=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*25)+1 
400  άχ  =  0:ς|χ=0 
410  ΡΕΝ  2 

420  ΕΟΟΑΤΕ  ΓΠ3Π(  1 )  ,πΐ3η(  2) :  ΡΡΙΝΤ  0ΗΡ$(246); 

430  ΜΗΙΕΕ  ΙΝΚΕΥ$=”": ΜΕΝΡ 
440  : 

450  ΜΗ I Ι_Ε  πγι>0  ΑΝΡ  Ν0Τ  0Θ30 
460  ΡΕΝ  2 

470  ΕΟύΑΤΕ  πΐ3π(  1 )  ,ιτΐ3η(  2) :  ΡΡΙΝΤ  0ΗΡ$(246); 

480  άχ=(ΙΝΚΕΥ(8)=0)-(ΙΝΚΕΥ(1)=0) 
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490  άχ=(ΙΝΚΕΥ(0)=0)-(ΙΝΚΕΥ(2)=0) 

500  εχ=Γη3η(1)+εΙχ:ογ=ΓΤ>3η(2)+ϋχ:602υΒ  710 

'ΔΟΚΙΜΗ  ΓΙΑ  ΝΑ  ΔΙΑΚΡΙΝΕΙ  ΑΝ  ΥΠΑΡΧΕΙ  ΚΑΤΙ  ΕΚΕΙ 
510  ΙΕ  σΐ3η(  1  )  +  ε)χ=40  0Ρ  ηη3η(  1  )+ύχ-1  ΤΗΕΝ  άχ-0 

520  ΙΕ  πΐ3η(2)+ο1χ=25  0Ρ  ΓΠ3η ( 2 )  γ=  1  ΤΗΕΝ  <ί;=0 

530  ΙΕ  ε  =  1  ΤΗΕΝ  6051ΙΒ  750  'ύΐθ  ' 

540  ΙΕ  ε=3  ΤΗΕΝ  θ ί$=0ΗΡ$( 245 )  Ε15Ε  θί$  =  "  " 

550  ΙΕ  άχ=0  ΑΝΟ  8χ=0  ΤΗΕΝ  60Τ0  620 

560  ΙΕ  θί$="  "  ΤΗΕΝ  ΡΕΝ  0  Ε15Ε  ΡΕΝ  3 

570  ΕΟΟΑΤΕ  ΓΠ3Π ( 1 )  ,ιη3η( 2 ) :  ΡΡΙ ΝΤ  θΙ$; 

580  ΡΕΝ  2 

590  ΠΗ3Π(  1  )=ΓΠ3Π(  1  )+οΙχ 

600  πΐ3π(2)=ηη3η(2)+ο)χ 

610  ΙΟΟΑΤΕ  πΐ3η(  1 )  ,ΓΠ3η( 2) :  ΡΡΙΝΤ  0ΗΡ$(246); 

620  οουηΐ  =  (οουηΐ+1 )  ΜΟΘ  $ρεά 

630  ΙΕ  οουηΐ=0  ΤΗΕΝ  6051ΙΒ  840  ΚΙΝΗΣΗ  ΤΕΡΑΤΩΝ 

640  ν/ΕΝϋ 
650  : 

660  ΜΗΙΕΕ  ΙΝΚΕΥ$<>"":ΜΕΝΘ  ΆΔΕΙΑΣΜΑ  ΤΟΥ  ΒυΡΡΕΚ 
670  ΙΕ  ιτι=0  ΤΗΕΝ  ΙΝΚ  0,5,8 
680  ΕΝΘ 
690  : 

700  ΡΕΜ  Ρουτίνα  για  την  εξέταση  των  περιεχομένων  μιας  τοποθεσίας 
710  ο=ΤΕ5Τ((οχ-1)*16+4,(25-οχ)*16+4) 

720  ΗΕΤυΡΝ 
730  : 

740  ΡΕΜ  Διαδικασία  θανάτωσης 

750  ΙΝΚ  0,9,4 

760  ΕΟΡ  ζ=20  ΤΟ  0  5ΤΕΡ  -1 

770  50υΝΡ  1,10+η,100,7 

780  ΗΗΙΙ.Ε  50 < 1 )>1 27: ΜΕΝΡ 

790  ΝΕΧΤ  ζ 

800  άθ3ά=-1 

810  ΡΕΤυΡΝ 

820  : 

830  ΡΕΜ  Ρουτίνα  για  τη  μετακίνηση  των  τεράτων 
840  ΕΟΡ  ι  =  1  ΤΟ  πι 

850  ΕΟΟΑΤΕ  πιοηεί  ΐ ,  1 )  ,ιτιοη 5 <  ϊ  ,2) :  ΡΡΙΝΤ  " 

860  χ=56Ν(γπ3π(  1  )-πποη5(  ϊ ,  1 ) ) 

870  χ=$6Ν(πΐ3η(  2 )  — γποπ 5 ( ί  ,2) ) 

880  οχ=πιοη$(  ϊ ,  1  )  +  χ:  οχ=πιοη$(  ϊ,2)+χ:60$ϋΒ  710 

890  ΕΟΟΑΤΕ  1 , 1 : ΡΡ I ΝΤ  ο 

900  ΙΕ  ε=3  ΤΗΕΝ  60$υΒ  990:60Τ0  950  "ΣΚΟΤΩΝΕΙ  ΤΟ  ΤΕΡΑΣ 
910  ΡΕΝ  1 

920  ΙΕ  ο=1  ΤΗΕΝ  ΙΟΟΑΤΕ  οχ,οχ:ΡΡΙΝΤ  0ΗΡ$(244),·: 

οοευΒ  750: ΡΕτυΡΝ  νεκρός  άνθρωπος 
930  ηοπ$(  ι,1)  =  οχ:πιοη5(  ϊ,2)  =  οχ 
940  ίΟΟΑΤΕ  οχ, οχ: ΡΡΙΝΤ  ΘΗΡ$(244); 

950  ΝΕΧΤ  ϊ 
960  ΡΕΤυΡΝ 
970  : 

980  ΡΕΜ  Ρουτίνα  για  τη  θανάτωση  του  τέρατος 
990  ΡΡΙΝΤ  0ΗΡ$(7) ; 

"Ό00  ΕΟΟΑΤΕ  πιοη$(  ϊ  ,  1 )  ,πιοη  5  (  ί,2):ΡΒΙΝΤ  " 

Ό10  ΙΕ  ϊ=πι  ΤΗΕΝ  γπ=γπ-1: ΡΕΤΙΙΡΝ 

1 020  ΕΟΡ  ϊ  =  ϊ  ΤΟ  γπ—  1 

1030  ιτιοηδί  ί  ,1  )=πιοη$(  ί  +  1,1 ) 

1040  πιοηδί  ί,2)=Γηοηδ(  ί  +  1,2) 
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1050  ΝΕΧΤ  ϊ 
1060  γπ=γπ—  1 
1070  ΚΕΤυΚΝ 


Π17  Η  ΝΥΧΤΕΡΙΔΑ  ΚΑΙ  ΤΑ  ΕΝΤΟΜΑ 

Η  νυχτερίδα,  που  παρουσιάζεται  σ’  αυτό  το  πρόγραμμα,  είναι  ένα  σύνθετο 
σγήμα  για  την  κατασκευή  του  οποίου  απαντούνται  τέσσερεις  από  τους  χαρα¬ 
κτήρες  που  καθορίζονται  από  το  χρήστη.  Μπορεί  να  κινηθεί  με  τα  πλήκτρα 
ελέγχου  του  δρομέα  οριζόντια  και  κάθετα  πάνω  στην  οθόνη. 

Μπορείς  να  διαλέξεις  το  επίπεδο  δυσκολίας,  δηλαδή  την  ταχύτητα  με  την  ο¬ 
ποία  κινούνται  τα  έντομα  και  την  εμβέλεια  της  νυχτερίδας.  Η  συμπεριφορά 
των  πρώτων  είναι  μάλλον  τυχαία.  Σαν  αποτέλεσμα,  το  φάγωμα  του  τελευ¬ 
ταίου  εντόμου,  ακόμη  και  στο  χαμηλότερο  επίπεδο  δυσκολίας,  μπορεί  να  σε 
οδηγήσει  στη  καταστροφή.  Εμείς  πάντως  σε  προειδοποιήσαμε!!! 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  Η  νυχτερίδα  και  τα  έντομα 
110  ΡΙΜ  χ(10),χ(10),άχ(10),άχ(10) 

120  ΜΟΡΕ  1 

130  Ρ0Ρ  ΐ=2ΑΑ  ΤΟ  249 

140  ΡΕΑΡ  61,62,63,64,65,66,67,68 

150  5ΥΜΒ06  1,61,62,63,64,65,66,67,68 

160  ΝΕΧΤ  ϊ 

170  : 

180  ΡΕΜ  Καθορισμός  χαρακτήρων 
190  γπ1$=0ΗΡ$(  244):πι2$=0ΗΡ$(245) 

200  63ΐ1$=0ΗΡ$(246)+0ΗΡ$(247) 

210  63ΐ2$=0ΗΡ$(248)+0ΗΡ$(249) 

220  υη63ΐ1$="  " 

230  υη63ΐ2$="  " 

240  : 

250  ΡΕΜ  Επιλογή  χρωμάτων 
260  ΡΕΜ  Επιλογή  χρωμάτων  γραμμάτων 
270  ΡΕΜ  Επιλογή  χρωμάτων  γραμμάτων 
280  : 

290  ΙΝΡυΤ«ΑΡΙΘΜΟΣ  ΕΝΤΟΜΩΝ  (1  ΜΕΧΡΙ  10  >>»,!<:  (ς=|<- 1 
300  Κ1=Κ+1 
310  : 

320  Ρ0Ρ  ϊ=0  ΤΟ  * 

330  χ(ϊ)=ΡΙΧ(ΡΝΡ(6)*16)+2 

340  άχ(  ι  )  =  1 

350  γ( ϊ)=ΕΙΧ(ΡΝΡ(6)*21)+2 
360  άγ(ΐ)=1 

370  ΝΕΧΤ  ϊ 
380  : 

390  ΙΝΡυΤ  «ΕΠΙΠΕΔΟ  ΔΥΣΚΟΛΙΑΣ  (I  ΜΕΧΡΙ  5)»,  ά\ά=  5-ά 

400  ΜΟΡΕ  0 

410  6χ=1 1 : 6χ=13 

420  600 ΑΤΕ  1 1 , 13: ΡΡΙΝΤ  63ΐ1$; 

430  600 ΑΤΕ  1 1 , 14: ΡΡΙΝΤ  6362$; 

440  : 

450  ζ=Τ ΙΜΕ 
460  : 

470  ΜΗΙ6Ε  Χ>-1 
480  Ρ0Ρ  ι=0  ΤΟ  6 
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490  ΙΡ  χ(ϊ)+άχ(ϊ»17  0Ρ  χ( ί )+άχ( ϊ )<3 

ΤΗΕΝ  άχ(  ι  )=-<1χ(  ϊ  )*2 

500  ΙΡ  χ(  1  )+ο!γ(  ϊ  )>22  ΟΡ  γ(  ι  )+<Ιγ(  ί  )<3 

ΤΗΕΝ  άγ(  ϊ  )=-<!>'(  ϊ  )*2 
510  ΕΟΟΑΤΕ  χ <  τ )  ,γ(  ϊ ) :  ΡΚΙΝΤ  <η1$ 

520  ΝΕΧΤ  ϊ 

530  : 

540  602υΒ  820  "ΧΕΙΡΙΣΜΟΣ  ΝΥΧΤΕΡΙΔΑΣ 

550  : 

560  ΡΟΡ  ϊ=0  ΤΟ  X 

570  ΕΟΟΑΤΕ  χ ( ϊ ) ,γ( ϊ ): ΡΡΙΝΤ  " 

580  χ(  ϊ  )=χ(  ϊ  )+ε!χ(  ϊ ) :  γ(  ϊ  )=γ(  ϊ  )+ΰχ(  ϊ ) 

590  ΕΟΟΑΤΕ  χ(  ϊ )  ,γ(  ϊ ) :  ΡΡΙΝΤ  (η2$; 

600  ΝΕΧΤ  ϊ 

610  : 

620  605υΒ  820  "ΧΕΙΡΙΣΜΟΣ  ΝΥΧΤΕΡΙΔΑΣ 

630  : 

640  ΡΟΡ  ΐ=0  ΤΟ  Κ 

650  ΕΟΟΑΤΕ  χ (  ί ) ,γ( ϊ ): ΡΡΙΝΤ  " 

660  άχ( ΐ)=ΡΙΧ(ΡΝ0(ΤΙΜΕ)*3) 

670  άγ( ϊ)=ΡΙΧ(ΡΝ0(ΤΙΜΕ)*3) 

680  ΝΕΧΤ  ϊ 

690  : 

700  ΜΕΝΡ 
710  : 

720  ΜΗΙΕΕ  ΙΝΚΕΥ$<>"": ΗΕΝΰ  ΆΔΕΙΑΣΜΑ  ΤΟΥ  ΒΙΙΡΡΕΚ 
730  : 

740  ζ  =  (ΤΙΜΕ-ζ)/300Α1  ΧΡΟΝΟΣ  ΑΝΑ  ΕΝΤΟΜΟ  ΣΕ  ΔΕΥΤΕΡΟΛΕΠΤΑ 
750  ζ=ΡΙΧ(ζ*(5-ά) ) 

760  ΜΟΟΕ  1 

770  ΕΟΟΑΤΕ  10,10:  ΡΡΙΝΤ  «ΒΑΘΜΟΙ=»;ζ 

780  ΝΗΙΙΕ  ΙΝΚΕΥ$<>"":ΜΕΝΟ  ΆΔΕΙΑΣΜΑ  ΤΟΥ  ΒυΡΡΕΚ 

790  ΕΝΰ 

800  : 

810  ΡΕΜ  Υπορουτίνα  χειρισμού  της  νυχτερίδας 
820  ίΟΟΑΤΕ  βχ,βγ:  ΡΡΙΝΤ  υηΙ)3ΐ1$; 

830  ΙΟΟΑΤΕ  &χ,βγ+1:ΡΡΙΝΤ  υη&3ΐ2$- 
840  : 

850  Ιι/=ΐ3>'+(ΙΝΚΕΥ(0)=0)-(ΙΝΚΕΥ(2)=0) 

860  6χ=6χ+(ΙΝΚΕΥ(8)=0)-(ΙΝΚΕΥ(1)=0) 

870  : 

880  ΙΡ  ύγ<2  ΤΗΕΝ  6χ=&γ+1 
890  ΙΡ  6γ>22  ΤΗΕΝ  6γ=1ιγ-1 
900  : 

910  ΙΡ  &χ<2  ΤΗΕΝ  &χ=&χ+1 
920  ΙΡ  6χ>18  ΤΗΕΝ  6χ=6χ-1 
930  : 

940  ΕΟΟΑΤΕ  &χ,1)γ:ΡΡΙΝΤ  &3ΐ1$; 

950  ΕΟΟΑΤΕ  6χ,6γ+ 1 : ΡΡΙΝΤ  &3ΐ2$; 

960  : 

970  ΙΡ  ( ΙΝΚΕΥ ( 9 )  =  Ο )  ΤΗΕΝ  605υΒ  1010  ’  ΦΑΓΩΜΑ  ΕΝΟΣ  ΕΝΤΟΜΟΥ 

980  ΡΕΤυΡΝ 
990  : 

1000  ΡΕΜ  Ρουτίνα  για  το  φάγωμα  των  εντόμων 
1010  ΡΟΡ  ϊ=0  ΤΟ  Κ 

1020  ΙΡ  ΑΒ3( 6χ-χ (  ϊ )  )>ά  ΟΡ  ΑΒ5(6γ-γ(  ϊ )  )>ύ 

ΤΗΕΝ  ΡΡΙΝΤ  0ΗΡ$(7):6ΟΤΟ  1100  ΑΠΟΤΥΧΙΑ 

1030  εουΝο  1,200,10,7,0,0,1 
1040  ΕΟΟΑΤΕ  χ( ϊ ),/( ϊ ): ΡΡΙΝΤ  " 

1050  ΡΟΡ  ΐ=ΐ  ΤΟ  Χ-1 
1060  χ ( ΐ )  =  χ ( ΐ  + 1 ) 

1070  γ( ΐ )=γ( ΐ  +  1 ) 
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1080  ΝΕΧΤ  ΐ 
1090  Κ=Χ-1 

1100  ΝΕΧΤ  ί 
ιιιο  ρετιιρν 
1120  : 

1130  : 

1140  ΰΑΤΑ  129,129,195,231,255,231,195,129 
1150  ΡΑΤΑ  36,102,102,102,126,102,102,36 
1160  ΟΑΤΑ  130,130,129,195,199,195,225,227 
1170  ΰΑΤΑ  65,65,129,195,227,195,135,199 
1180  βΑΤΑ  231,255,255,239,231,197,137,156 
1190  βΑΤΑ  231,255,255,247,231,163,145,57 


$ 


Μ 


42 


Π18  ΠΕΡΙΟΔΟΣ  ΕΞΟΦΛΗΣΗΣ  ΔΑΝΕΙΟΥ 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  τον  τύπο 

-1  Ιο9(1-(Ρ.Ρ)/(Ν.Α)) 

Τ  =  -* - 

Ν  Ιος( 1+Ρ/Ν) 

όπου 

Τ=Η  περίοδος  σε  χρόνια 
Ρ=Αρχικό  ποσό 
Κ=Επιτόκιο 

Ν=Αριθμός  πληρωμών  (δόσεων)  ανά  έτος 
Α=Ποσό  κάθε  πληρωμής  (δόσης) 

Ο  υπολογισμός  θα  μπορούσε  να  γίνει  με  αριθμομηχανή,  αλλά  είναι  πολύ  πιο 
γρήγορος  αν  αφήσουμε  τον  υπολογιστή  να  μας  κάνει  τη  δουλειά. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Περίοδος  εξόφλησης  δανείου 

20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1: ΙΝΚ  1,24 
40  Β0ΡΡΕΡ  1 
50  ΜΟΡΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ(10)Μ - " 

80  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΠΕΡΙΟΔΟΣ  ΕΞΟΦΛΗΣΗΣ  ΔΑΝΕΙΟΥ» 

90  ΡΡΙΝΤ  ΤΑΒ(10)" - " 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟ  ΧΡΟΝΟ¬ 
Ι  20  ΡΡΙΝΤ  «ΠΟΥ  ΘΑ  ΠΑΡΕΙ  Η  ΕΞΟΦΛΗΣΗ  ΕΝΟΣ  ΔΑΝΕΙΟΥ» 

130  ΡΡΙΝΤ: ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΓΙΑ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΣΕΙΣ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΠΡΕΠΕΙ  ΝΑ  ΟΡΙΣΕΙΣ: 
150  ΡΡΙΝΤ 

160  ΡΡΙΝΤ  ΤΑΒ( 2)  «(I)  ΤΟ  ΔΑΝΕΙΣΜΕΝΟ  ΠΟΣΟ» 

170  ΡΡΙΝΤ  Τ ΑΒ ( 2 )  «(2)  ΤΟ  ΕΤΗΣΙΟ  ΕΠΙΤΟΚΙΟ» 

180  ΡΡΙΝΤ  ΤΑΒ(2)  «(3)  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΔΟΣΕΩΝ  ΑΝΑ  ΕΤΟΣ» 

190  ΡΡΙΝΤ  ΤΑΒ( 2)  «(4)  ΤΟ  ΠΟΣΟ  ΚΑΘΕ  ΔΟΣΗΣ» 

200  ρριντ:ρριντ:ρριντ 

210  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 

220  3$=ΙΝΚΕΥ$:ΙΡ  ΙΕΝ(β$)=0  ΤΗΕΝ  220 
230  : 

240  0Ε5 

250  ΕΟΟΑΤΕ  1,8 

260  ΙΝΡΙΙΤ  «ΔΑΝΕΙΣΜΕΝΟ  ΠΟΣΟ;  »,ρ 
270  ΙΝΡυΤ  «ΕΤΗΣΙΟ  ΕΠΙΤΟΚΙΟ  (%);  »,γ 
280  ΙΝΡϋΤ  «ΑΡΙΘΜΟΣ  ΔΟΣΕΩΝ  ΑΝΑ  ΕΤΟΣ»;π 
290  ΙΝΡΙΙΤ  «ΚΑΝΟΝΙΚΟ  ΠΟΣΟ  ΔΟΣΗΣ;», 3 
300  : 

310  γ=γ/100 

320  ΟΝ  ΕΡΡ0Ρ  60Τ0  510 
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330  ΐππ=-106(  1-ρ*Γ/η/3)/1_06(  1  +  Γ/η)/η 
340  γτ  =  I ΝΤ <  ϊγπ ) 

350  γπΙ:  =  1 2*  (  ΐπ-γΓ  ) 

360  ΙΡ  ιηΐΟΙΝΤ (ιηΐ )  ΤΗΕΝ  πιΐ;  =  I ΝΤ ( ιτιΐ  + 1 ) 

370  ΙΡ  γπϊ  =  1 2  ΤΗΕΝ  γΓ=γΓ  +  1:πιΐ=0 
380  : 

390  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

400  ΡΡΙΝΤ  ΤΑΒ( 4); «ΤΟ  ΔΑΝΕΙΟ  ΘΑ  ΕΞΟΦΛΗΘΕΙ  ΣΕ:» 

410  ΡΡΙΝΤ 

420  ΡΡΙΝΤ  ΤΑΒ( 3); γτ;  «ΕΤΟΣ  (Η)  ΚΑΙ  »;  γπι;  «ΜΗΝΑ  (ΕΣ).» 

430  ΡΡΙΝΤ :ΡΡΙΝΤ:ΡΡΙΝΤ 

440  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΛΕΙΩΣΕΙ» 
:ΡΡΙΝΤ«ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

450  3$=ΙΝΚΕΥ$:ΙΡ  ΕΕΝ(3$)=0  ΤΗΕΝ  450 
460  (Χ5 
470  ΕΝϋ 
480  : 

490  : 

500  ΡΕΜ  Δεν  μπορεί  να  υπολογίσει  το  γρόνο 
510  ΡΡΙΝΤ:  ΡΡΙΝΤ:  ΡΓ.ΙΝΤ 

520  ΡΡΙΝΤ«ΔΕΝ  ΜΠΟΡΕΙ  ΝΑ  ΥΠΟΛΟΓΙΣΘΕΙ  Η  ΠΕΡΙΟΔΟΣ  ΕΞΟΦΛΗΣΗΣ» 
530  ΡΡΙΝΤ  «ΑΠΟ  ΤΙΣ  ΠΛΗΡΟΦΟΡΙΕΣ  ΠΟΥ  ΕΧΟΥΝ  ΔΟΘΕΙ». 

540  60Τ0  430 
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Π19  ΑΠΟΣΒΕΣΗ 


Αυτό  το  πρόγραμμα  μπορεί  να  χρησιμοποιηθεί  για  τον  υπολογισμό  της  από¬ 
σβεσης  της  αξίας  ενός  αντικειμένου  από  την  κανονική  του  χρήση  στη  διάρ¬ 
κεια  του  χρόνου. 

Το  πρόγραμμα  δείχνει  την  εφαρμογή  δύο  κοινών  μεθόδων  υπολογισμού  αυ¬ 
τής  της  απόσβεσης. 

1.  Γραμμική  μέθοδος 

Με  τη  μέθοδο  αυτή  ένα  καθορισμένο  ποσό  (ποσοστό  %  της  αρχικής  α¬ 
ξίας)  αφαιρείται  ετησίως.  Η  γραφική  παράσταση  που  προκύπτει  εμφανί¬ 
ζει  μια  γραμμική  σχέση  μεταξύ  της  αξίας  και  των  ετών.  Εάν,  για  παρά¬ 
δειγμα,  η  αρχική  αξία  ήταν  8.000  δρχ.  και  αφαιρείται  το  25%  από  αυτή 
την  αξία  κάθε  έτος,  τότε  έχουμε: 
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2.  Μέθοδος  φθίνοντος  Ισοζυγίου 


Με  τη  μέθοδο  αυτή  ένα  ποσοστό  %  από  την  απολειπόμενη  αξία  στην  αρ¬ 
χή  κάθε  έτους  αφαιρείται  από  το  τέλος  αυτού  του  έτους.  Έτσι  παίρνου¬ 
με  μια  καμπύλη  της  παρακάτω  μορφής: 


Το  πρόγραμμα  παρουσιάζει  τις  δύο  μεθόδους  απόσβεσης  στη  μορφή  ενός  πί¬ 
νακα  που  δείχνει  το  ποσό  που  πρέπει  να  αφαιρείται  στο  τέλος  κάθε  χρόνου 
για  μια  περίοδο  ετών. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 

Δώσε  τα  ποσά  σαν  αριθμούς  μόνο.  Αυτό  το  πρόγραμμα  λειτουργεί  με  κάθε 
είδους  χρηματική  μονάδα. 


10  ΡΕΜ  Απόσβεση 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1 : ΙΝΚ  1,24 
40  Β0ΡΡΕΡ  1 
50  Μ00Ε  1 
60  ΟΟΟΑΤΕ  7,2 

70  ΡΡΙΝΤ  «ΥΠΟΛΟΓΙΣΜΟΙ  ΑΠΟΣΒΕΣΗΣ» 

80  ΡΡΙΝΤ  ΤΑΒ (7)"**** *********************" 

90  ΟΟΟΑΤΕ  1,5 

100  ΡΡΙΝΤ  «ΔΥΟ  ΜΕΘΟΔΟΙ  ΧΡΗΣΙΜΟΠΟΙΟΥΝΤΑΙ  ΣΥΝΗΘΩΣ» 

110  ΡΡΙΝΤ  «ΠΑ  ΝΑ  ΥΠΟΛΟΓΙΣΘΕΙ  Η  ΑΠΟΣΒΕΣΗ  ΤΗΣ  ΑΞΙΑΣ» 

120  ΡΡΙΝΤ  «ΕΝΟΣ  ΑΝΤΙΚΕΙΜΕΝΟΥ  ΣΕ  ΚΑΘΟΡΙΣΜΕΝΗ  ΧΡΟΝΙΚΗ  ΠΕΡΙΟΔΟ.  ΑΥΤΕΣ» 
130  ΡΡΙΝΤ  «ΕΙΝΑΙ:» 

140  ΟΟΟΑΤΕ  7,11 

150  ΡΡΙΝΤ  «I.  Η  ΓΡΑΜΜΙΚΗ  ΜΕΘΟΔΟΣ». 

160  ΙΟΟΑΤΕ  7,13 

170  ΡΡΙΝΤ  «2.  Η  ΜΕΘΟΔΟΣ  ΤΟΥ  ΦΘΙΝΟΝΤΟΣ  ΙΣΟΖΥΓΙΟΥ» 

180  000 ΑΤΕ  1,18 

190  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΗΝ  ΑΠΟΣΒΕΣΗ  ΚΑΤΑ  ΤΗ  » 
200  ΡΡΙΝΤ «ΔΙΑΡΚΕΙΑΚΑΘΟΡΙΣΜΕΝΗΣ  ΧΡΟΝΙΚΗΣ  ΠΕΡΙΟΔΟΥ» 

:  ΡΡΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ  ΚΑΙ  ΤΙΣ  ΔΥΟ  ΜΕΘΟΔΟΥΣ». 


46 


210  Ι_Ο0 ΑΤΕ  7,23 

220  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ 
230  ΗΗΙΟΕ  ΕΕΝ(3$)=0:3$=ΙΝΚΕΥ$:ΜΕΝβ 
240  : 

250  003 

260  ΐν=-1 

270  ΜΗΙ0Ε  ΐν<0 

280  :  ΙΝΡυΤ  «ΑΞΙΑ  ΑΝΤΙΚΕΙΜΕΝΟΥ  ΚΑΤΑ  ΤΗΝ  ΑΠΟΚΤΗΣΗ  ΤΟΥ»; 
290  ΜΕΝβ 
300  : 

310  Α=-1 

320  ΡΡΙΝΤ: ΡΡΙΝΤ- 

330  ΜΗΙΕΕ  Α<0 

340  :  ΡΡΙΝΤ  «ΑΝ  ΑΦΑΙΡΟΥΣΕΣ  ΕΝΑ  ΚΑΘΟΡΙΣΜΕΝΟ  ΠΟΣΟ  ΚΑΘΕ» 
350  :  ΙΝΡυΤ  «ΧΡΟΝΟ,  ΠΟΣΟ  ΘΑ  ΗΘΕΛΕΣ  ΝΑ  ΕΙΝΑΙ»;  Α 
360  ΜΕΝβ 
370  : 

380  ΡΡ=- 1 
390  ΡΡΙΝΤ: ΡΡΙΝΤ 
400  ΜΗΙΕΕ  ΡΡ<0 

410  :  ΡΡΙΝΤ  «ΑΝ  ΑΦΑΙΡΟΥΣΕΣ  ΕΝΑ  ΠΟΣΟΣΤΟ  %  ΚΑΘΕ» 

420  :  ΙΝΡυΤ  «ΧΡΟΝΟ,  ΠΟΣΟ  ΘΑ  ΗΘΕΛΕΣ  ΝΑ  ΕΙΝΑΙ»;  ΡΚ 
430  ΚΕΝϋ 
440  : 

450  ΡΡΙΝΤ: ΡΡΙΝΤ 

460  ΜΗΙΙΕ  ΥΡ%<1  0Ρ  ΥΡ%>20 

470  :  ΙΝΡ0Τ  «ΑΡΙΘΜΟΣ  ΕΤΩΝ  ΠΟΥ  ΘΑ  ΠΑΡΟΥΣΙΑΣΘΟΥΝ»;  ΥΚ% 
480  ΗΕΝϋ 
490  : 

500  003 
510  Ζ0ΝΕ  13 

520  ΡΡΙΝΤ  «ΕΤΟΣ»,  «ΤΡΑΜ.  ΜΕΘ.»,  «ΦΘΙΝ.  ΙΣ.» 

530  ΡΡΙΝΤ,  «ΑΞΙΑ»,  «ΑΞΙΑ» 

540  ΡΡΙΝΤ 
550  : 

560  νΑ=ΐν 

570  Ρ0Ρ  η=1  ΤΟ  ΥΡ% 

580  :  νΐ=ΐν-Α*η 
590  :  ΙΡ  νΐ<0  ΤΗΕΝ  νΐ  =  0 
600  :  νΑ=νΑ*( 100-ΡΡΙ/100 
610  :  ΙΡ  νΑ<0  ΤΗΕΝ  νΑ=0 
620  ΡΡΙΝΤ  υ3ΙΝ0"###";η; 

630  ΡΡΙΝΤ  ΤΑΒ ( 9 )  υ5ΙΝ6"####/Μ#Μ#.##"; VI; νΑ 
640  ΝΕΧΤ 
650  : 

660  ΜΗΙ0Ε  ίΕΝ(6$)=0:6$=ΙΝΚΕΥ$:ΜΕΝβ 
670  005 
680  ΕΝϋ 

690  ΡΕΜ  Οποιοδήποτε  πλήκτρο  τελειώνει  το  πρόγραμμα 


Έτος 

Γ ραμ.  μεθ.  αξία 

Φθιν.  Ισ.  Αξία 

1 

850.00 

700.00 

2 

700.00 

490.00 

3 

550.00 

343.00 

4 

400.00 

240.10 

5 

250.00 

168.07 

6 

100.00 

117.65 

7 

0.00 

82.35 

8 

0.00 

57.65 

9 

0.00 

40.35 

10 

0.00 

28.25 
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Π20  ΥΠΟΛΟΓΙΣΜΟΙ 
ΤΟΥ  ΚΟΣΤΟΥΣ  ΠΩΛΗΣΕΩΝ 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  τρεις  διαφορετικές  μεθόδους  υπολογι¬ 
σμού  του  κόστους  των  πωλήσεων  και  χρησιμοποιεί  τα  αποτελέσματα  αυτών 
των  υπολογισμών  για  να  συντάξει  μια  έκθεση  για  το  μικτό  κέρδος. 

Οι  μέθοδοι  είναι  οι  εξής: 

1.  ΡίΓ5ΐ-Ιη-ΡΪΓ5ΐ-Ουΐ  (Ρ.Ι.Ρ.Ο.)* 

2.  Ραεί-Ιπ-Ρίτεΐ-Ουί  (Ρ.Ι.Ρ.Ο.)* 

3.  Η  μέθοδος  του  σταθμισμένου  μέσου 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 

*  Διεθνής  ορολογία  των  οικονομολόγων 


10  ΡΕΜ  Υπολογισμός  του  κόστους  πωλήσεων 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1 : ΙΝΚ  1,24 
40  Β0ΡΡΕΡ  1 
50  Μ00Ε  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ(7)" - - - " 

80  ΡΡΙΝΤ  ΤΑΒ( 7)  «ΥΠΟΛΟΓΙΣΜΟΙ  ΓΟΥ  ΚΟΣΤΟΥΣ  ΠΩΛΗΣΕΩΝ» 

90  ΡΡΙΝΤ  Τ ΑΒ ( 7 ) ” - " 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟ  ΚΟΣΤΟΣ  ΤΩΝ  ΠΩΛΗΣΕΩΝ» 
120  ΡΡΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ  ΤΡΕΙΣ  ΔΙΑΦΟΡΕΤΙΚΕΣ  ΜΕΘΟΔΟΥΣ:» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  ΤΑΒ(  3)  «ΜΕΘΟΔΟΣ  Ρ.Ι.Ρ.Ο.,» 

150  ΡΡΙΝΤ  ΤΑΒ( 3)  «ΜΕΘΟΔΟΣ  Ε.Ι.Ρ.Ο.  και» 

160  ΡΡΙΝΤ  ΤΑΒ( 3)  «ΜΕΘΟΔΟΣ  ΣΤΑΘΜΙΣΜΕΝΟΥ  ΜΕΣΟΥ». 

170  ΡΡΙΝΤ: ΡΡΙΝΤ 

180  ΡΡΙΝΤ  «ΤΑ  ΑΠΟΤΕΛΕΣΜΑΤΑ  ΑΥΤΩΝ  ΤΩΝ  ΥΠΟΛΟΓΙΣΜΩΝ» 

190  ΡΡΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΟΥΝΤΑΙ  ΣΤΗ  ΣΥΝΕΧΕΙΑ  ΓΙΑ  ΝΑ  ΠΑΡΟΥΣΙΑΣΘΕΙ  ΜΙΑ» 
200  ΡΡΙΝΤ  «ΕΚΘΕΣΗ  ΓΙΑ  ΤΟ  ΜΙΚΤΟ  ΚΕΡΔΟΣ». 

210  ΡΡΙΝΤ: ΡΡΙΝΤ 
220  ΜΗΙΕΕ  ρυΓ%<=0 

230  :  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΑΓΟΡΩΝ  ΠΟΥ  ΕΓΙΝΑΝ»;  ρυτ% 

240  ΜΕΝϋ 
250  : 

260  βΙΜ  νοί < ρυτ %— 1 ) ,ρτ ϊ ( ρυτ%-1 ) 

270  Ρ0Ρ  π=0  ΤΟ  ρυτ %— 1 
280  :  α5 

290  :  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΑΡΙΘΜΟΣ  ΑΓΟΡΩΝ»;  η+1 

300  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

310  :  ΙΝΡυΤ  «ΟΓΚΟΣ  ΑΓΟΡΩΝ»;  νοί  (η) 

320  :  ΡΡΙΝΤ 

330  :  ΙΝΡυΤ  «ΤΙΜΗ  ΜΟΝΑΔΑΣ  ΑΓΟΡΑΣ»;  ρπ  (η) 

340  :  ΐρ=ΐρ+νοΙ(η) 

350  ΝΕΧΤ 
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360  : 

370  0Ι_5 

380  ΜΗΙ1_Ε  53ΐθ5%<=0 

390  :  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΠΩΛΗΣΕΩΝ  ΠΟΥ  ΕΓΙΝΑΝ»;  53ΐβ5% 

400  ΜΕΝϋ 
410  : 

420  ΡΟΡ  η=0  ΤΟ  53ίθ57ο-1 
430  :  0Ε5 

440  :  ΡΡΙΝΤ  ΤΑΒ(  13) «ΑΡΙΘΜΟΣ  ΠΩΛΗΣΗΣ»;  η+1 

450  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

460  :  ΙΝΡυΤ  «ΟΓΚΟΣ  ΠΩΛΗΣΗΣ»;  5νοΙ 

470  :  ΡΡΙΝΤ 

480  :  ΙΝΡυΤ  «ΤΙΜΗ  ΜΟΝΑΔΑΣ  ΠΩΛΗΣΗΣ»;  ερΗ 

490  :  ΐΐ=ΐί+5νοΙ 

500  :  Γν=Γν+$νοΙ*5ρΓ ϊ 

510  ΝΕΧΤ 

520  : 

530  015 

540  ΙΡ  ΐΐ>ΐρ  ΤΗΕΝ  ΡΡΙΝΤ  ΤΑΒ(  16)  -ΥΠΕΡΒΑΣΗ»;  ΟΟδΙΙΒ  1040:  ΕΝΩ 
550  : 

560  ΡΕΜ  Ρ.Ι.Ρ.Ο. 

570  ΐ  =  ΐί 
580  ΝΗΙΕΕ  ΐ>0 

590  :  ΙΡ  ΐ>νοΚίί)  ΤΗΕΝ  ΐ  =  ΐ-νοΙ ( ί I ) : ε  =  ο+νοΙ ( I ί )*ρο ϊ ( ί I ) 

600  :  ΙΡ  ΐ<=νο I  ( ί  1 )  ΤΗΕΝ  ε=ς+ί *ρτ ϊ ( I I ) : 1=0 
610  :  11=11+1 
620  ΜΕΝΡ 
630  : 

640  ΡΡΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ  ΤΗ  ΜΕΘΟΔΟ  Ρ.Ι.Ρ.Ο.:» 

650  605υΒ  940 
660  : 

670  ΡΕΜ  Ε.Ι.Ρ.Ο. 

680  ΐ=ί ΐ: ο=0: η=ρυΓ%-1 
690  ΜΗΙΕΕ  ΐ>0 

700  :  ΙΡ  ΐ>νοΙ(η)  ΤΗΕΝ  1=ΐ-νοΙ (η) : ο=ε+νοί (η)*ρΓ ϊ ( η) 

710  :  ΙΡ  Κ=νοΙ  (η)  ΤΗΕΝ  ο=ο+ΐ*ρΗ(η):  ΐ=0 
720  :  η=η-1 

730  ΜΕΝΘ 
740  : 

750  ΡΚΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ  ΤΗ  ΜΕΘΟΔΟ  Ε.Ι.Ρ.Ο.:» 

760  60$υΒ  940 
770  : 

780  ΚΕΜ  Σταθμισμένος  μέσος 
790  ΡΟΚ  ν/ί=0  ΤΟ  ρυτΖ-1 
800  :  ρρ=ρρ+νοΙ  («ΐ)*ρΓ  ΐ  (ν/ΐ ) 

810  ΝΕΧΤ 
820  3ν=ρρ/ ΐρ 
830  α=ίΐ*3ν 
840  : 

850  ΡΡΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ  ΤΗ  ΜΕΘΟΔΟ  ΤΟΥ  ΣΤΑΘΜΙΣΜΕΝΟΥ  ΜΕΣΟΥ· 

860  60$υΒ  940 

870  60$υΒ  1040 

880  ΕΝΘ 

890  : 

900  : 

910  : 

920  : 

930  ΡΕΜ  Τύπωμα  αποτελεσμάτων 
940  ΡΡΙΝΤ 

950  ΡΡΙΝΤ'ΈΣΟΔΑ  =";υ5ΙΝ6  "Μ##ΙΪ.#";Γν 

960  ΡΡΙΝΤ”ΚΟΣΤΟΣ  ΠΩΛΗΣΕΩΝ  =";05ΙΝ6  "Μ###### .#8" ;ζ 
970  ΡΡΙΝΤ"ΜΙΚΤΟ  ΚΕΡΔΟΣ  =";υ5ΙΝ6  .##" ,τν-ο 

980  ΡΡΙΝΤ" - " 


50 


990  ΡΡΙΝΤ 
1000  ΡΕΤϋΡΝ 
1010  : 

1020  : 

1030  ΡΕΜ  Οποιοδήποτε  πλήκτρο  σταματάει  το  πρόγραμμα 
1040  ΡΡΙΝΤ 

1050  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ 
:  ΡΡΙΝΤ  "ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

1060  3$=ΙΝΚΕΥ$:ΙΕ  ΕΕΝ(3$)=0  ΤΗΕΝ  1060 
1070  01.5 
1080  ΡΕΤυΡΝ 


Π21  ΚΙΝΗΤΟΣ  ΜΕΣΟΣ  ΟΡΟΣ  ΠΩΛΗΣΕΩΝ 
ΤΩΝ  ΤΕΛΕΥΤΑΙΩΝ  ΤΕΣΣΑΡΩΝ  ΕΒΔΟΜΑΔΩΝ 


Όταν  προσπαθούμε  να  εκτιμήσουμε  τις  τάσεις  που  προκύπτουν  από  τα 
στοιχεία  των  πωλήσεων,  μπορεί  να  φανεί  χρήσιμο  να  κάνουμε  γραφική  πα¬ 
ράσταση  των  στοιχείων  αυτών  με  το  μέσο  όρο  των  πωλήσεων  των  τελευ¬ 
ταίων  τεσσάρων  εβδομάδων  όπως  αυτός  αναπροσαρμόζεται  καθημερινά. 


Αυτό  το  πρόγραμμα  εκπληρώνει  αυτό  το  σκοπό,  πληροφορούμενο  για  τα 
στοιχεία  των  πωλήσεων  από  εντολές  δεδομένων.  Σημείωσε  ότι  τα  δεδομένα 
τελειώνουν  με  μια  φανταστική  αρνητική  πώληση. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Κινητός  μέσος  όρος  πωλήσεων  των  τελευταίων  τεσσάρων  εβδομάδων 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,0 
30  ΡΕΝ  1: ΙΝΚ  1,24 
40  ΒΟΡϋΕΡ  0 
50  ΜΟΰΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ(7)" - - 

80  ΡΡΙΝΤ  ΤΑΒ(  7)  «ΚΙΝΗΤΟΣ  ΜΕΣΟΣ  ΟΡΟΣ  ΠΩΛΗΣΕΩΝ  4  ΕΒΔΟΜΑΔΩΝ» 

90  ΡΡΙΝΤ  ΤΑΒ(7)" - - - - 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΓΙΑ  ΝΑ  » 

120  ΡΡΙΝΤ«  ΒΟΗΘΗΣΕΙ  ΣΤΗ  ΠΡΟΒΛΕΨΗ  ΤΩΝ  ΠΩΛΗΣΕΩΝ,  ΒΑΣΙΖΟΜΕΝΟ  ΣΕ  ΕΝΑ» 
130  ΡΡΙΝΤ«  ΚΙΝΗΤΟ  ΜΕΣΟ  ΟΡΟ  ΤΩΝ  ΤΕΛΕΥΤΑΙΩΝ  ΤΕΣΣΑΡΩΝ  ΕΒΔΟΜΑΔΩΝ». 
140  ΡΡΙΝΤ: ΡΡΙΝΤ 

150  ΡΡΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΕΝ  ΠΑΙΡΝΕΙ» 

160  ΡΡΙΝΤ  «ΥΠΟΨΗ  ΤΟΥ  ΕΠΟΧΙΑΚΕΣ  ΔΙΑΚΥΜΑΝΣΕΙΣ.» 

170  ΡΡΙΝΤ: ΡΡΙΝΤ 

180  ΡΡΙΝΤ  «ΤΑ  ΔΕΔΟΜΕΝΑ  ΠΕΡΙΕΧΟΝΤΑΙ  ΣΕ  ΕΝΤΟΛΕΣιΡΑΤΑ.ΤΟ  ΠΡΟΓΡΑΜΜΑ» 
190  ΡΡΙΝΤ«ΜΠΟΡΕΙ  ΝΑ  ΧΕΙΡΙΣΘΕΙ  ΔΕΔΟΜΕΝΑ  ΜΕΧΡΙ  52  ΕΒΔΟΜΑΔΩΝ». 

200  ΡΡΙΝΤ: ΡΡΙΝΤ 

210  ΡΡΙΝΤ  «ΕΑΝ  ΤΟ  ΚΡΙΝΕΙΣ  ΑΝΑΓΚΑΙΟ,  ΣΤΑΜΑΤΗΣΕ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΓΙΑ» 
220  ΡΡΙΝΤ  «ΝΑ  ΠΡΟΣΘΕΣΕΙΣ  Ή  ΝΑ  ΜΕΤΑΒΑΛΛΕΙΣ  ΤΑ  ΔΕΔΟΜΕΝΑ». 

230  : 

240  Ρ I Μ  53(53), ΓΠ3 (50) 

250  ΡΕΜ  Διάκριση  των  δεδομένων 
260  ΜΗΙ1_Ε  ί5>=0 
270  :  ΡΕΑύ  53 ( ηππ ) 

280  :  ΙΡ  ιπχ<53 ( πγπ)  ΤΗΕΝ  Γηχ  =  53(ηπι) 

290  :  Ι5  =  53(ηπι) 

300  :  ηπι= ηιτι+ 1 
310  ν/ΕΝΡ 
320  : 

330  ΡΕΜ  Υπολογίζει  τους  μέσους  όρους 
340  Ρ0Ρ  Κ=3  ΤΟ  ηπι-2 

350  :  γτι3(  Κ-3)  =  (  53(  Κ  )  +  53(  Κ-1  )  +  53(  Κ-2) +  53(  Κ-3)  )/4 
360  ΝΕΧΤ 
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370  : 

380  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

390  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 
400  3$=ΙΝΚΕΥ$:ΙΡ  ΕΕΝ(θ$)=0  ΤΗΕΝ  400 
410  : 

420  Μ0ΡΕ  2 

430  ΡΕΜ  Σχεδιάζει  τους  άξονες 

440  ΡΕΟΤ  0,35 

450  ΟΡΑΜΡ  640,0 

460  ΡΕ0Τ  50,0 

470  ΡΡΑΜΡ  0,400 

480  : 

490  ΡΟΡ  η=1  ΤΟ  6 

500  :  ΕΟΟΑΤΕ  5+11 *η , 24 

510  :  ΡΡΙΝΤ  2*η; 

520  ΝΕΧΤ 

530  ΕΟΟΑΤΕ  38,25 

540  ΡΡΙΝΤ  «ΑΡΙΘΜΟΣ  ΕΒΔΟΜΑΔΑΣ»; 

550  ΕΟΟΑΤΕ  15,2 

560  ΡΡΙΝΤ  «ΕΒΔΟΜΑΔΙΑΙΕΣ  ΠΩΛΗΣΕΙΣ  -  1986» 

570  : 

580  νθΓΐ=ιηχ/25 

590  ΡΟΡ  η=0  ΤΟ  4 

600  :  ΕΟΟΑΤΕ  1 ,23-η*5 

610  :  ΡΡΙΝΤ  ΙΝΤ ( ( 2+η*5 )*νβΓΐ ) 

620  ΝΕΧΤ 
630  : 

640  ΡΕΜ  Σχεδιάζει  τις  πωλήσεις 

650  503 ΐ6=400/ιπχ 

660  ΡΕΟΤ  50,$3(0)*5Ο31θ 

670  ΡΟΡ  η=1  ΤΟ  ηιπ-2 

680  :  ΡΡΑΝ  50+11*η,53(η)*503ΐθ 

690  ΝΕΧΤ 

700  : 

710  ΡΕΜ  Σχεδιάζει  τους  μέσους  όρους 

720  ΡΕΟΤ  83,ιυ3(0)*503ΐθ 

730  ΡΟΡ  η=1  ΤΟ  πγπ-5 

740  :  ΟΡΑΜ  83+11*η,πΐ3(η)*503ΐ6 

750  ΝΕΧΤ 

760  : 

770  3$=ΙΝΚΕΥ$: ΙΡ  ΕΕΝ(3ϊ)=0  ΤΗΕΝ  770 

780  ΡΕΜ  Οποιοδήποτε  πλήκτρο  τελειώνει  το  πρόγραμμα 

790  ΜΟΟΕ  1 

800  ΕΝΟ 

810  : 

820  : 

830  ΡΑΤΑ  112,224,115,212,118,215,113,214,115,216,112 
840  ΡΑΤΑ  223,126,224,125,265,145,293,116,216,193,293 
850  ΡΑΤΑ  187,315,220,354,232,367,198,354,267,365,287 
860  ΡΑΤΑ  398,254,254,176,234,144,201,101,350,190,483 
870  ΡΑΤΑ  190,190 
880  ΡΑΤΑ  -9 
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Π22  ΥΠΟΛΟΓΙΣΜΟΣ  Φ.Π.Α 


Αυτό  το  πρόγραμμα  υπολογίζει  τον  Φόρο  Προστιθέμενης  Αξίας  ενός  είδους 
και  σε  πληροφορεί  για  το  φόρο  και  το  ολικό  κόστος. 

Τα  αποτελέσματα  του  υπολογισμού  στρογγυλοποιούνται  στη  πλησιέστερη 
χρηματική  μονάδα. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Δώσε  τα  δεδομένα  όπως  σου  ζητούνται. 


10  ΡΕΜ  Υπολογισμός  του  Φ.Π.Α. 

20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1 : ΙΝΚ  1,24 
40  Β0ΡΡΕΡ  1 
50  Μ0ΡΕ  1 
60  : 

70  ΡΡΙΝΤ  Τ ΑΒ ( 12)" - " 

80  ΡΡΙΝΤ  ΤΑΒ ( 12)  «ΥΠΟΛΟΓΙΣΜΟΣ  ΤΟΥ  Φ.Π.Α.» 

90  ΡΡΙΝΤ  Τ  ΑΒ  ( 12)" - " 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΓΙΑ  ΝΑ  ΣΕ  » 

120  ΡΡΙΝΤ»  ΒΟΗΘΗΣΕΙιΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ  ΤΙΣ  ΕΠΙΣΤΡΟΦΕΣ  ΤΟΥ  ΔΙΚΟΥ  ΣΟΥ  Φ.Π.Α.» 
130  ΕΟΟΑΤΕ  1,14 

140  ΡΡΙΝΤ  «ΤΟ  ΤΡΕΧΟΝ  ΠΟΣΟΣΤΟ  ΤΟΥ  Φ.Π.Α.  ΕΙΝΑΙ  15%» 


150  ΡΡΙΝΤ 

160  ΙΝΡυΤ  «ΜΗΠΩΣ  ΘΕΛΕΙΣ  ΝΑ  ΤΟ  ΑΛΛΑΞΕΙΣ  (γ/η)»;  γ$ 

170  ν3ί=0. 15 

180  ΙΕ  ΕΕΡΤ$(γ$,1)="γ"  0Ρ  ΕΕΡΤ$(γ$,1)="Υ"  ΤΗΕΝ  605υΒ  450 
190  : 


200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


ΜΗΙΕΕ  ί=0 
ί=1 

005ΐ=-1 
ΗΗΙΕΕ  εοδΐ<0 
0Ε5 

ΙΝΡυΤ-ΚΟΣΤΟΣ  ΕΙΔΟΥΣ»^  005 ΐ 
ΜΕΝΡ 

ΕΟΟΑΤΕ  1,7 
ΡΡΙΝΤ"ΚΟΣΤΟΣ  ΕΙΔΟΥΣ= 

ρριντ  υ$ΐΝ6  "ηηηηηκηη## .ηη" ·,ζο%\ 

ΕΟΟΑΤΕ  1,10 
ΡΡΙΝΤ"Φ.Π.Α.  ="; 

ρριντ  υ$ΐΝ6  "ηηηηηηηηηη .ηη" }ζο%χ*μάχ 
ΕΟΟΑΤΕ  1,13 
ΡΡΙΝΤ'ΌΛΙΚΟ  ΚΟΣΤΟΣ  ="; 

ρριντ  υ5ΐΝ6  "ηηη»ηηηηηη.##"}ζ οδΐ*(ΐ+ν3ΐ) 
ΕΟΟΑΤΕ  1,18 

ΙΝΡίΙΤ  «ΑΛΛΟ  ΕΙΔΟΣ  (γ/η)»;  γ$ 

ΙΡ  ΕΕΡΤ$(γ$,1 )="γ"  0Ρ  ΕΕΡΤ$(γ$,1 )="Υ"  ΤΗΕΝ  ί= 
ΜΕΝΡ 


400  0Ε5 
410  ΕΝΡ 
420  : 

430  : 

440  ΡΕΜ  Υπορουτίνα  αλλαγής  του  Φ.Π.Α. 
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450  ΗΗΙΕΕ  Γ3ΐθ<=0 
460  :  ίΟΟΑΤΕ  23,20 
470  :  ΡΡΙΝΤ  5ΡΑ0 Εί ( 12) 

480  :  ΕΟΟΑΤΕ  1,20 

490  :  ΙΝΡίΙΤ  «ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΝΕΟ  ΠΟΣΟΣΤΟ  (%). 
500  ΜΕΝϋ 

510  ν3ΐ=Γ3ΐθ/100 
520  ΡΕΤΙΙΡΝ 


Π23  ΠΡΑΓΜΑΤΙΚΟ  ΕΠΙΤΟΚΙΟ 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  μια  απλοποιημένη  προσέγγιση  για  να  υ¬ 
πολογίσει  το  πραγματικό  επιτόκιο  ενός  δανείου.  Δεχόμαστε  ότι  οι  δόσεις  εί¬ 
ναι  μηνιαίες. 

Γ ια  να  υπολογίσουμε  το  πραγματικό  επιτόκιο  εκφράζουμε  πρώτα  το  δανει¬ 
σμένο  ποσό  με  τέτοιο  τρόπο  ώστε  να  παίρνουμε  υπόψη  την  περίοδο  δανει¬ 
σμού  ώστε  π.χ.  δάνειο  100  δρχ.  για  ένα  μήνα  να  θεωρείται  ισοδύναμο  με  δά¬ 
νειο  50  δρχ.  για  δύο  μήνες.  Σαν  μονάδα  χρησιμοποιούμε  το  γινόμενο  μιας 
χρηματικής  μονάδας  επί  την  περίοδο  δανεισμού  της,  σε  μήνες,  και  την  ονο¬ 
μάζουμε  Χ-Μ.  Στη  συνέχεια  υπολογίζουμε  σαν  ποσοστό  το  λόγο  του  συνολι¬ 
κού  τόκου  που  πληρώνεται  προς  το  συνολικό  αριθμό  των  μονάδων  Χ-Μ.  Τέ¬ 
λος  πολλαπλασιάζουμε  αυτόν  τον  αριθμό  με  το  δώδεκα. 

Το  πρόγραμμα  λειτουργεί  με  κάθε  είδους  χρηματική  μονάδα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Πραγματικό  Επιτόκιο 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1:  ΙΝΚ  1,24 
40  ΒΟΡΰΕΡ  1 
50  ΜΟϋΕ  1 
60  : 

70  ΡΡΙΝΤ  Τ ΑΒ ( 9 ) ” - ■" 

80  ΡΡΙΝΤ  ΤΑΒ( 9)  -ΠΡΑΓΜΑΤΙΚΟ  ΕΠΙΤΟΚΙΟ» 

90  ΡΡΙΝΤ  ΤΑΒ( 9 ) " - " 

100  ρριντ:ρριντ 

110  ΡΡΙΝΤ  -ΑΥΤΟ ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟ  ΠΡΑΓΜΑΤΙΚΟ  ΕΠΙΤΟΚΙΟ» 
120  ΡΡ I ΝΤ  «ΜΙΑΣ  ΔΑΝΕΙΟΛΗΠΤΙΚΗΣ  ΣΥΝΑΛΛΑΓΗΣ.  ΓΙΑ  ΝΑ  ΛΕΙΤΟΥΡΓΗΣΕΙ  ΤΟ. 
130  ΡΡΙΝΤ  -ΠΡΟΓΡΑΜΜΑ  ΠΡΕΠΕΙ  ΝΑ  ΕΧΕΙ  ΣΤΟΙΧΕΙΑ  ΓΙΑ  ΤΟ  ΠΟΣΟ  ΤΟΥ» 

140  ΡΡΙΝΤ  -ΔΑΝΕΙΟΥ, ΤΟ  ΕΤΗΣΙΟ  ΕΠΙΤΟΚΙΟ  ΚΑΙ  ΤΗΝ  ΧΡΟΝΙΚΗ  ΔΙΑΡΚΕΙΑ» 

150  ΡΡ  I  ΝΤ  “  (ΙΕ  ΜΗΝΕΣ)ΓΙΑ  ΤΗΝ  ΟΠΟΙΑ  ΛΑΜΒΑΝΕΤΑΙ  ΤΟ  ΔΑΝΕΙΟ» 

160  ΡΡΙΝΤ: ΡΡΙΝΤ 

170  ΙΝΡυΤ -ΠΟΣΟ  ΔΑΝΕΙΣΜΟΥ»;  3Πΐι 

180  ΡΡΙΝΤ 

190  ΙΝΡυΤ  «ΕΤΗΣΙΟ  ΕΠΙΤΟΚΙΟ (%)»;Γ3ΐε 
200  ΡΡΙΝΤ 

210  ΙΝΡϋΤ  «ΑΡΙΘΜΟΣ  ΜΗΝΩΝ »;  Ηυιτι 
220  ΡΡΙΝΤ: ΡΡΙΝΤ 

230  ϊηΐθΓ65ΐ  =  3Γηΐ*Γ3ΐθ*ηυπι/1200 
240  ρ3/ύ3θΚ  =  (  3πΐ+  ϊπΐθΓθδΐ  ) /πυπι 
250  : 

260  ΡΕΜ  ΣΥΝΘΕΤΟΣ  ΜΗΝΙΑΙΟΣ  ΤΟΚΟΣ 
270  Ρ0Ρ  σιοη ΐ 0  =  1  ΤΟ  πυπι 

280  :  6οΓΓθΜθ(Ι=δθΓΓθΜθδ+(3πιΐ-ρ3γύ3θΙ<*(πποηΐΙι-1 ) ) 

290  ΝΕΧΤ 
300  : 

310  ίΓϋθ=1200*ϊηΐθΓ65ΐ/ύοΓΓο«θό 
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320  ΡΡΙΝΤ  «ΤΟ  ΠΡΑΓΜΑΤΙΚΟ  ΕΠΙΤΟΚΙΟ  ΕΙΝΑΙ»; 

330  ΡΡΙΝΤ  υ$ΙΝ6  "»»»».»»"; ΐτυε; 

340  ΡΡΙΝΤ"%" 

350  ΡΡΙΝΤ: ΡΡΙΝΤ 

360  I  ΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  ΔΟΚΙΜΑΣΕΙΣ  ΚΑΙ  ΠΑΛΙ  (γ/η)»; 

370  ΙΡ  ίΕΡΤ$(ν$,1)=Ύ'  0Ρ  1_ΕΡΤ$( γ$,1  )  =  "Υ"  ΤΗΕΝ  ΡΙΙΝ 
380  0Ι_5 
390  ΕΝΡ 
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ΣΥΣΤΗΜΑ  ΕΛΕΓΧΟΥ  ΑΠΟΘΗΚΗΣ 


Τα  επόμενα  πέντε  προγράμματα  δημιουργούν  ένα  στοιχειώδες  σύστημα  ε¬ 
λέγχου  αποθήκης. 

Το  πρώτο  πρόγραμμα  σου  παρέχει  τη  δυνατότητα  να  δημιουργήσεις  το  αρ¬ 
χείο  αποθήκης.  Στην  τωρινή  του  μορφή  μπορεί  να  δεχθεί  μόνο  δέκα  αποθη- 
κευμένα  είδη.  Είμαστε  σίγουροι  ότι  ο  αναγνώστης  θα  είναι  σε  θέση  να  τρο¬ 
ποποιήσει  το  πρόγραμμα  για  να  αυξήσει  αυτόν  τον  αριθμό  εάν  το  κρίνει  α¬ 
παραίτητο. 

Το  επόμενο  πρόγραμμα  χρησιμοποιείται  για  να  καταγράφει  όλες  τις  συναλ¬ 
λαγές,  προσθήκες  και  αφαιρέσεις  μαζί  από  το  απόθεμα.  Προς  το  παρόν,  το 
πρόγραμμα  δεν  επαληθεύει  τα  δεδομένα  όπως  αυτά  εισάγονται.  Κάτι  τέτοιο 
θα  ήταν  μια  χρήσιμη  επέκταση. 

Το  τρίτο  πρόγραμμα  ενημερώνει  το  αρχείο  αποθήκης  με  τις  πληροφορίες 
που  περιέχονται  στο  αρχείο  συναλλαγών.  Αυτό  είναι  ένα  αρκετά  πολύπλοκο 
πρόγραμμα,  το  οποίο  προσπαθήσαμε  να  κάνουμε  καταληπτό  χρησιμοποιώ¬ 
ντας  εντολές  ΡΚΙΝΤ  και  ΚΕΜ.  Το  πρόγραμμα  παράγει  επίσης  ένα  κατάλογο 
των  ειδών  που  πρέπει  να  παραγγελθούν  πάλι. 

Το  τέταρτο  πρόγραμμα  χρησιμοποιείται  για  την  εκτύπωση  ολόκληρου  του 
αρχείου  αποθήκης.  Αυτό  μπορεί  να  γίνει  είτε  μετά  την  δημιουργία  του  αρ¬ 
χείου  είτε  μετά  την  ενημέρωσή  του. 

Το  τελευταίο  πρόγραμμα  χρησιμοποιείται  για  την  εκτύπωση  του  αρχείου 
συναλλαγών,  εξασφαλίζοντας  έτσι  ένα  αντίγραφο  από  τις  συναλλαγές  της  η¬ 
μέρας. 

Το  πλήρες  σύστημα  ελέγχου  αποθήκης  παρουσιάζεται  στο  επόμενο  σχήμα: 
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ΠΡΟΓΡΑΜΜΑ  Π24  ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ 


- > 

& 

ΑΠΟΘΗΚΗΣ.  Ο  ΧΡΗΣΤΗΣ 
ΕΙΣΑΓΕΙ  ΤΑ  ΔΕΔΟΜΕΝΑ 

VI 

ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ  ΣΤΗ  ΜΝΗΜΗ.  ΤΟ  ΠΡΟΓΡΑΜΜΑ 

ΑΠΟΘΗΚΕΥΕΤΑΙ  ΣΕ  ΔΙΣΚΟ 

Ή  ΚΑΣΕΤΑ. 

- * 

φφ' 

ΠΡΟΓΡΑΜΜΑ  Π  25  ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ 
ΣΥΝΑΛΛΑΓΩΝ 

ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ 


ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ 


ΠΡΟΓΡΑΜΜΑ  Π26 


ΝΕΟ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ 


ΚΑΤΑΛΟΓΟΣ  ΑΠΑΙΤΟΥΜΕΝΩΝ 
ΠΑΡΑΓΓΕΛΙΩΝ 


■» 


ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ 


ΠΡΟΓΡΑΜΜΑ  Π27 


ΕΚΤΥΠΩΣΗ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ 


®_Θ 


■* 


ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ 


ΠΡΟΓΡΑΜΜΑ  Π28 


ΕΚΤΥΠΩΣΗ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ 
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Π24  ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ 


Αυτό  το  πρόγραμμα  δημιουργεί  το  αρχείο  αποθήκης. 
ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Να  έχεις  έτοιμο  δίσκο  που  έχει  υποστεί  Γοππαί  ή  μια  άγραφη  κασέτα. 


10  ΡΕΜ  Δημιουργία  αρχείου  αποθήκης 
20  ΜΟΘΕ  1 

30  ΡΑΡΕΡ  0: I ΝΚ  0,1 
40  ΡΕΝ  1 :  ΙΝΚ  1,24 
50  Β0ΡΘΕΡ  1 
60  01.5 
70  : 

80  ΡΡΙΝΤ  ΤΑΒ(ΙΟ)" - " 

90  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ» 

100  ΡΡΙΝΤ  ΤΑΒ(10)" - 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  -ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΗΜΙΟΥΡΓΕΙ  ΕΝΑ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ·. 

130  ΡΡΙΝΤ  «ΑΠΟΔΕΚΑ  ΕΙΔΗ,  ΤΟ  ΠΟΛΥ,  ΣΕ  ΔΙΣΚΟ  Ή  ΚΑΣΕΤΑ.  ΚΑΘΕ.Γ 
140  ΡΡΙΝΤ  «ΑΠΟΘΗΚΕΥΜΕΝΟ  ΕΙΔΟΣ ΚΑΤΑΧΩΡΕΙΤΑΙ  ΩΣ  ΕΞΗΣ·.. 

150  ΡΡΙΝΤ 

160  ΡΡΙΝΤ  ΤΑΒ( 5)  -ΑΡΙΘΜΟΣ  ΕΙΔΟΥΣ(1  ΜΕΧΡΙ  ΙΟ)» 

170  ΡΡΙΝΤ  Τ ΑΒ ( 5 )  «ΠΕΡΙΓΡΑΦΗ» 

180  ΡΡΙΝΤ  ΤΑΒ(5)  -ΠΟΣΟΤΗΤΑ  ΑΠΟ  ΤΟ  ΕΙΔΟΣ  ΣΤΟ  ΑΠΟΘΕΜΑ» 

190  ΡΡΙΝΤ  ΤΑΒ(  5 )  «ΚΑΤΩΤΑΤΟ  ΟΡΙΟ  ΓΙΑ  ΝΕΑ  ΠΑΡΑΓΓΕΛΙΑ» 

200  ΡΡΙΝΤ  ΤΑΒ( 5)  «ΠΟΣΟΤΗΤΑ  ΝΕΑΣ  ΠΑΡΑΓΓΕΛΙΑΣ» 

210  ΡΡΙΝΤ 

220  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΠΕΡΑΣΕ  ΤΑ  ΔΕΔΟΜΕΝΑ  ΟΠΩΣ  ΖΗΤΟΥΝΤΑΙ» 

230  ΡΡΙΝΤ  «  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  «οί  ΣΑΝ  ΕΝΔΕΙΞΗ  ΤΕΡΜΑΤΙΣΜΟΥ»: 

ΡΡΙΝΤ  -  ΤΟΥ  ΠΡΟΓΡΑΜΜΑΤΟΣ» 

240  ΡΡΙΝΤ 

250  ΡΡΙΝΤ  «ΕΤΟΙΜΑΣΕ  ΤΟ  ΜΕΣΟ  ΑΠΟΘΗΚΕΥΣΗΣ  (ΚΑΣΕΤΑ  Ή» 

260  ΡΡΙΝΤ  «ΔΙΣΚΟ)  ΣΤΟ  ΟΠΟΙΟ  ΘΑ  ΑΠΟΘΗΚΕΥΣΕΙΣ  ΤΟ  ΑΡΧΕΙΟ» 

270  ΡΡΙΝΤ  «ΑΠΟΘΕΜΑΤΩΝ  ΣΟΥ» 

280  ΡΡΙΝΤ 

290  ΡΡΙΝΤ  -ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

300  3$=ΙΝΚΕΥ$: ΙΡ  ΙΕΝ(3$)=0  ΤΗΕΝ  300 
310  : 

320  ΘΙΜ  άθδ$(9) 

330  ΘΙΜ  ηυπι(2,9) 

340  ΝΗΙΕΕ  ϊτθπΐ5=0 

350  :  ΙΡ  ό$="εοί "  ΑΝΘ  5ΐΚ=1  ΤΗΕΝ  5ίΙ<=0 

360  :  ΡΕΜ  Αρχείο  χωρίς  καμμιά  καταχώρηση  δεν  γίνεται  αποδεκτό 

370  :  (Χ5 

380  :  ΡΡΙΝΤ  Τ  ΑΒ  (13)  «ΑΡΙΘΜΟΣ  ΕΙΔΟΥΣ»;  51Κ+1 
390  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

400  :  ΙΝΡϋΤ  «ΠΕΡΙΓΡΑΦΗ  (εοί  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙ  Η  ΚΑΤΑΧΩΡΗΣΗ)»; θεε  5  (βιΚ) 
410  :  μ$=ΕΟΜΕΡ$(άθ5$(5ΐΙΟ) 

420  :  ΙΡ  μ$="εοί "  ΤΗΕΝ  ίΐεπι$  =  5ί1<  Εί5Ε  605ϋΒ  680 
430  :  5ΐΙι=$ΐΙ<+1 
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440  :  ΙΡ  5ΐΚ=10  ΤΗΕΝ  ίΐθΠ5=10 
450  ΜΕΝΘ 
460  : 

470  ΡΕΜ  Αποθήκευση  αρχείου  αποθήκης 

480  015 

490  ΟΡΕΝΟυΤ  "δΐοεΚ" 

500  ΡΡΙΝΤ  #9 ,  ί ΐθΠΐδ 
510  γ$=0ΗΡ$( 13) 

520  Ρ0Ρ  η=1  ΤΟ  ϊΐθπΐδ 

530  :  Κ=η-1  _ 

540  :  ΡΡΙΝΤ  #9,ς)θ5$(Ι<.);Γ$;ηυΓΤ)(0,Κ);Γ$;ηυιπ(  1  ,Κ);Γ$;ηυπι( 2,Κ) 

550  ΝΕΧΤ 
560  0ΕΟ5ΕΟΙΙΤ 
570  ΡΡΙΝΤ: ΡΡΙΝΤ 

580  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΚΑΙ  ΓΡΑΨΕ  ΠΑΝΩ  ΤΟΥΣ  ΑΡΧΕΙΟ- 
590  ΡΡΙΝΤ  «ΑΠΟΘΗΚΗΣ'ΚΑΙ  ΤΗΝ  ΗΜΕΡΟΜΗΝΙΑ  ΚΑΤΑΧΩΡΗΣΗΣ» 

600  ΡΡΙΝΤ: ΡΡΙΝΤ 

610  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ·. 

:  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

620  3$=ΙΝΚΕΥ$:ΙΡ  ΙΕΝ(3$)=0  ΤΗΕΝ  620 
630  0Ε5 
640  ΕΝΘ 
650  : 

660  : 

670  ΡΕΜ  Καταχώρηση  στοιχείων  αποθηκευμένου  είδους 
680  ΡΡΙΝΤ 

690  ΙΝΡυΤ  «ΠΟΣΟΤΗΤΑ  ΑΠΟ  ΤΟ  ΕΙΔΟΣ  ΣΤΟ  ΑΠΟΘΕΜΑ»;  παπί  (0, είΧ) 

700  ΡΡΙΝΤ 

710  ΙΝΡυΤ  «ΚΑΤΩΤΑΤΟ  ΟΡΙΟ  ΓΙΑ  ΝΕΑ  ΠΑΡΑΓΓΕΛΙΑ»; ηυπι  (I, 5<Χ) 

720  ΡΡΙΝΤ 

730  ΙΝΡυΤ  «ΠΟΣΟΤΗΤΑ  ΝΕΑΣ  ΠΑΡΑΓΓΕΛΙΑΣ»; ηυπι  (2,  βιΚ) 

740  ΡΕΤυΡΝ 
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Π25  ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ 


Αυτό  το  πρόγραμμα  μπορεί  να  δεχθεί  την  καταχώρηση  100  συναλλαγών,  το 
περισσότερο 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Να  έχεις  έτοιμο  δίσκο  που  έχει  φορμαριστεί  ή  μια  άγραφη  κασέτα. 


10  Ρ  ΕΜ  Δημιουργία  αρχείου  συναλλαγών 
20  ΜΟΡΕ  1 

30  ΡΑΡΕΡ  0: I ΝΚ  0,1 
40  ΡΕΝ  1:1 ΝΚ  1,24 
50  ΒΟΡΡΕΡ  1 
60  0Ε5 
70  : 

80  ΡΡΙΝΤ  ΤΑΒ(7)" - " 

90  ΡΡΙΝΤ  ΤΑΒ(  7)  “ΔΗΜΙΟΥΡΓΙΑ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ» 

100  ΡΡΙΝΤ  ΤΑΒ( 7) " - " 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  «ΑΥΤΟ ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΔΕΧΘΕΙ  ΤΗΝ  ΚΑΤΑΧΩΡΗΣΗ » 
130  ΡΡΙΝΤ  «ΜΕΧΡΙ  ΚΑΙ  100 ΣΥΝΑΛΛΑΓΩΝ  ΕΝΟΣ  » 

140  ΡΡΙΝΤ  «ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ» 

150  ΡΡΙΝΤ: ΡΡΙΝΤ 

160  ΡΡΙΝΤ  «ΚΑΘΕ  ΣΥΝΑΛΛΑΓΗ  ΚΑΤΑΧΩΡΕΙΤΑΙ» 

170  ΡΡΙΝΤ  «ΩΣ ΕΞΗΣ:» 

180  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  ΤΑΒ ( 6)  «ΑΡΙΘΜΟΣ  ΕΙΔΟΥΣ» 

200  ΡΡΙΝΤ  ΤΑΒ( 6)  «ΚΩΔΙΚΟΣ  I -ΑΦΑΙΡΕΣΗ»  " 

210  ΡΡΙΝΤ  ΤΑΒ(  12) «2 -ΠΡΟΣΘΗΚΗ» 

220  ΡΡΙΝΤ 

230  ΡΡΙΝΤ  -ΠΑΡΑΚΑΛΩ  ΠΕΡΑΣΕΤΑ  ΔΕΔΟΜΕΝΑ,  ΟΤΑΝ  ΣΟΥ  ΖΗΤΗΘΟΥΝ» 

240  ΡΡΙΝΤ  “Η  ΚΑΤΑΧΩΡΗΣΗ  ΤΕΡΜΑΤΙΖΕΤΑΙ  ΜΕ  ΤΗΝ  ΕΙΣΑΓΩΓΗ  ΕΝΟΣ» 

250  ΡΡΙΝΤ: ΡΡΙΝΤ 

: ΡΡ I ΝΤ  «ΑΡΝΗΤΙΚΟΥ  ΑΡΙΘΜΟΥ  ΕΙΔΟΥΣ» 

260  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΜΕΣΟ  ΑΠΟΘΗΚΕΥΣΗΣ  (ΚΑΣΕΤΑ  'ΗΔΙΣΚΟ)ΣΤΟ» 

270  ΡΡΙΝΤ  «ΟΠΟΙΟ  ΕΧΕΙΣ  ΗΔΗ  ΑΠΟΘΗΚΕΥΣΕΙ  ΤΟ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ  ΣΟΥ» 
280  ΡΡ  I  ΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
290  3ί=ΙΝΚΕΥ$:ΐΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  290 
300  : 

310  0Ε5 

320  0ΡΕΝΙΝ  "εΐοείι" 

330  ΙΝΡυΤ  #9,ίΐθ(Π5 
340  ΡΙΜ  άθ5$(  ϊ  ΙΘΠ15-1 ) 

350  Ε0Ρ  π=1  ΤΟ  ϊΐθΓΠδ 

360  :  ΙΝΡυΤ  09,με5$(η-1),3,μ,ο 

370  ΝΕΧΤ 

380  0 1_05 Ε I Ν 

390  : 

400  ΡΡΙΝΤ: ΡΡΙΝΤ 

410  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ» 

420  ΡΡΙΝΤ 

430  ΡΡΙΝΤ -ΒΑΛΕ  ΤΟ  ΜΕΣΟ  ΑΠΟΘΗΚΕΥΣΗΣ  (ΚΑΣΕΤΑ  Η  ΔΙΣΚΟ)  ΣΤΟ  ΟΠΟΙΟ» 
440  ΡΡΙΝΤ  «ΠΡΟΚΕΙΤΑΙ  ΝΑ  ΑΠΟΘΗΚΕΥΣΕΙΣ  ΤΟ  ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ  ΣΟΥ» 
450  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

460  3$  =  ΙΝΚΕϊ$:ΙΕ  1_ΕΝ(  3$  )  =  0  ΤΗΕΝ  460 
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470  : 

480  ΟΙΜ  5ΐΚ%(99) 

490  ΰΙΜ  ΐτς%(99) 

500  ϋΙΜ  ςυ3Π(99) 

510  ΜΗΙΕΕ  θχ ΐ ΐ  =0 
520  :  α_$ 

530  :  ΡΚΙΝΤ  «Η  ΚΑΤΑΧΩΡΗΣΗ  ΤΕΡΜΑΤΙΖΕΤΑΙ  ΜΕ  ΤΗΝ  ΕΙΣΑΓΩΓΗ  ΕΝΟΣ» 

:  ΡΚΙΝΤ  «ΑΡΝΗΤΙΚΟΥ  ΑΡΙΘΜΟΥ  ΕΙΔΟΥΣ»» 

540  :  ΡΚΙΝΤ :ΡΚΙΝΤ:ΡΚΙΝΤ 

550  :  ΜΗΙΕΕ  $ΈΙ<%( ΐΓ3η$ )>ι ΐθίτιε  ΟΚ  5ΐΚ%( ΤΓ3Π5 XI 
560  :  ΡΚΙΝΤ  «ΑΡΙΘΜΟΣ ΕΙΔΟΥΣ (1  ΜΕΧΡΙ»»; ίΐαη;»)»>; 

570  :  ΙΝΡυΤ  5ΐΚ%( ΪΓ3Π5) 

580  :  3=5ΐΙ<%(ΐΓ3η$) 

590  :  ΙΡ  3<0  ΤΗΕΝ  θχ  ϊ  ΐ  =  1 :  3ίΙ<%(  ΐΓ3Π5)  =  1  ΕΕ5Ε  6051ΙΒ  870 

600  :  ΜΕΝΰ 

610  :  ΙΡ  θχιΐ=0  ΤΗΕΝ  ΐΓ3η8=ΐΓ3η5+1 
620  :  ΙΡ  ΐΓ3Π5=100  ΤΗΕΝ  θχϊΐ=1 
630  ΜΕΝΩ 
640  : 

650  015 

660  ΙΡ  ΐ Γ 3Π5=0  ΤΗΕΝ  ΡΚΙΝΤ  «ΔΕΝ ΕΧΕΙ  ΚΑΤΑΧΩΡΗΘΕΙ  ΚΑΜΜΙΑ  »» 

:  Ρ  Κ I Ν  Τ  «  ΣΥΝΑΛΛΑΓΗ »»:  ΕΝΩ 
670  ΟΡΕΝΟυτ  "ΐΓ3ηΐ  ϊ Ιβ" 

680  γ$=0ΗΚ$( 13) 

690  ΡΚΙΝΤ  #9,  ϊ  Τθγτ)5;γ$;  ΪΓ3Π5 

700  ΡΟΚ  η=1  ΤΟ  ι ΐβπΐδ : ΡΚΙΝΤ  #9,8θδ$(η-1):ΝΕΧΤ 

710  ΡΟΚ  η=1  ΤΟ  ΐΓ3η$ 

720  :  ΡΚΙΝΤ  #9,5ΐΚ%(η-1);Γ$;ΐΓε%(η-1);Γ$;ου3η(η-1) 

730  ΝΕΧΤ 
740  0ίΟ5ΕθυΤ 
750  ΡΚΙΝΤ: ΡΚΙΝΤ 

760  ΡΚΙΝΤ  «ΣΤΑΜΑΤΑ  ΤΟΝ  ΚΑΤΑΓΡΑΦΕΑ  ΔΕΔΟΜΕΝΩΝ  ΚΑΙ  ΓΥΡΙΣΕ  ΤΟΝΣΤΗΝ 
770  ΡΚ I  ΝΤ«  ΑΡΧΗΤΟΥ  ΑΡΧΕΙΟΥ.  ΒΓΑΛΕ  ΤΟ  ΜΕΣΟ  ΑΠΟΘΗΚΕΥΣΗΣ  ΚΑΙ  ΓΡΑΨΕ 
780  ΡΚΙΝΤ  «'ΠΑΝΩ  ΤΟΥ  ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ  ΚΑΙ  ΤΗΝ  ΗΜΕΡΟΜΗΝΙΑ». 

:  ΡΚΙΝΤ  «  ΚΑΤΑΧΩΡΗΣΩ. Σ.»» 

790  ΡΚΙΝΤ: ΡΚΙΝΤ 

800  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ  ΤΟ>» 

:  ΡΚΙΝΤ  «ΠΡΟΓΡΑΜΜΑ»». 

810  3$=ΙΝΚΕΥ$:  ΙΡ  1_ΕΝ(3$)=0  ΤΗΕΝ  810 
820  015 
830  ΕΝβ 
840  : 

850  : 

860  ΚΕΜ  Καταχώρηση  κωδικού  και  ποσότητας 
870  ΙΡ  3> ΐ  ΐθΓΠδ  ΟΚ  3<  1  ΤΗΕΝ  ΚΕΤυΚΝ 
880  ΡΚΙΝΤ 

890  ΡΚΙΝΤ  «ΠΕΡΙΓΡΑΦΗ  -  »>; <ΐ€$  5(3-1) 

900  ΡΚΙΝΤ 

910  ΜΗΙΕΕ  ΤΓ0%(ΐΓ3Π5)<1  ΟΚ  ΐΓε%(ΐΓ3Π5)>2 
920  :  ΡΚΙΝΤ  «ΚΩΔΙΚΟΣ  ΣΥΝΑΛΛΑΓΗΣ-»» 

930  :  ΙΝΡυΤ  « Ι-ΑΦΑΙΡΕΣΗ:  2-ΠΡΟΣΘΗΚΗ)»»;ΐΓο%(ΐΓ3η5) 

940  ΜΕΝΡ 
950  ΡΚΙΝΤ 

960  ΙΝΡυΤ  «ΠΟΣΟΤΗΤΑ»;  ςιΐ3η(ΐΓ3η$) 

970  ΚΕΤυΚΝ 
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Π26  ΕΝΗΜΕΡΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ 
ΚΑΙ  ΕΚΤΥΠΩΣΗ  ΚΑΤΑΛΟΓΟΥ 
ΑΠΑΙΤΟΥΜΕΝΩΝ  ΠΑΡΑΓΓΕΛΙΩΝ 

Αυτό  το  πρόγραμμα  ενημερώνει  το  αρχείο  αποθήκης  και  παράγει  ένα  κατά¬ 
λογο  των  ειδών  που  πρέπει  να  παραγγελθούν.  Το  πρόγραμμα  απαιτεί  την  ύ¬ 
παρξη  εκτυπωτή. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Να  έχεις  έτοιμα  το  αρχείο  αποθήκης  σου,  το  αρχείο  συναλλαγών  και  ένα  δί¬ 
σκο  που  έχει  φορμαριστεί  ή  μια  άγραφη  κασέτα. 


10  ΡΕΜ  «Ενημέρωση  αρχείου  αποθήκης  -  εκτύπωση  καταλόγου  παραγγελιών» 

20  ΜΟΘΕ  1 

30  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
40  ΡΕΝ  1 : ΙΝΚ  1,24 
50  Β0ΡΡΕΡ  1 
60  α5 
70  : 

80  ΡΡΙΝΤ  ΤΑΒ(  11)" - - 

90  ΡΡΙΝΤ  ΤΑΒ ( 1 1 )  «ΕΝΗΜΕΡΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ  ΚΑΙ  ΕΚΤΥΠΩΣΗ» 
100  ΡΡΙΝΤ  ΤΑΒ(  14)  «ΚΑΤΑΛΟΓΟΥ  ΑΠΑΙΤΟΥΜΕΝΩΝ  ΠΑΡΑΓΓΕΛΙΩΝ» 

110  ΡΡΙΝΤ  ΤΑΒ(  11)" - 

120  ΡΡΙΝΤ: ΡΕΙΝΤ 

130  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΝΗΜΕΡΩΝΕΙ  ΕΝΑ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ  ΜΕ» 
140  ΡΡΙΝΤ  «ΤΑ  ΠΕΡΙΕΧΟΜΕΝΑ  ΕΝΟΣ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ.  ΣΤΗ  ΣΥΝΕΧΕΙΑ» 
150  ΡΡΙΝΤ  «ΕΚΤΥΠΩΝΕΤΑΙ  ΕΝΑΣ  ΚΑΤΑΛΟΓΟΣ  ΤΩΝ  ΕΙΔΩΝ  ΠΟΥ  ΠΡΕΠΕΙ  ΝΑ» 

160  ΡΡΙΝΤ  «ΠΑΡΑΓΓΕΛΘΟΥΝ» 

170  ΡΡΙΝΤ: ΡΡΙΝΤ 

180  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΣΤΗΝ  ΟΠΟΙΑ  ΚΡΑΤΑΣ» 

190  ΡΡΙΝΤ  «ΤΟ  ΠΛΕΟΝ  ΠΡΟΣΦΑΤΟ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ  ΣΟΥ» 

200  ΡΡΙΝΤ: ΡΡΙΝΤ 
210  6081ΙΒ  1080 
220  : 

230  01.5 

240  0ΡΕΝΙΝ  "δίοείι" 

250  ΙΝΡΟΤ  #9,ϊΐθίτι$ 

260  ΘΙΜ  όβ$$(  ίΐθπιε-Ι ) 

270  ΘΙΜ  ηυπι(  2,  ϊ  ΐβπΐΗ—  1 ) 

280  Ε0Ρ  η=0  ΤΟ  ϊΐθπΐ5-1 

290  :  ΙΝΡΙΙΤ  #9,ό65$(η),ηυπι(0,η),ηυπι(  1  ,π ) ,ηυιτιί 2,η ) 

300  ΝΕΧΤ 
310  0ΕΟ5ΕΙΝ 
320  : 

330  ΡΡΙΝΤ:ΡΡΙΝΤ 

340.  ΡΡΙΝΤ  «ΒΓΑΛΕ ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ» 

350  ΡΡΙΝΤ 

360  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΤΟΥ  ΑΡΧΕΙΟΥ» 

370  ΡΡΙΝΤ  «ΣΥΝΑΛΛΑΓΩΝ» 

380  ΡΡΙΝΤ: ΡΡΙΝΤ 
390  6051ΙΒ  1080 
400  ΡΡΙΝΤ 
410  : 
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420  ΟΡΕΝΙΝ  "ΐ Γβηί  ί Ιθ" 

430  ΙΝΡυΤ  #9,\Χ 

440  ΙΡ  ί  ΐ<>  ί  ΐ  ΘΠ15  ΤΗΕΝ  ΡΡ ΙΝΤ  «ΛΑΘΟΣ  ΑΡΧΕΙΟ»:  ΟΕΟδΕΙΝ:  ΕΝϋ 
450  ΙΝΡυΤ  #9,ΐΓ3Π5 
460  ϋΙΙΊ  ΐΓε(2,ΐΓ3η5-1 ) 

470  ΡΟΡ  η=0  ΤΟ  ϊΐεπΐ5-1 
480  :  ΙΝΡυΤ  #9,ά$ 

490  :  ΙΡ  ο)$<>άθ$$(η)  ΤΗΕΝ  ΜΓοη9=1:η=ϊΙθ'πΐ5-1 
500  ΝΕΧΤ 

510  ΙΡ  ν/Γ0Π9=1  ΤΗΕΝ  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΑΡΧΕΙΟ»:  0Ε03ΕΙΝ:  ΕΝϋ 
520  ΡΟΡ  η=0  ΤΟ  ΤΓ3Π5-1 

530  :  ΙΝΡυΤ  #9,ΐΓε(0,η),1:Γε(1,η),·ϊΓα(2,η) 

540  ΝΕΧΤ 
550  0ΕΟ3ΕΙΝ 
560  : 

570  ΡΡΙΝΤ:ΡΡΙΝΤ 

580  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ.. 

590  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΣΤΗΝ  ΟΠΟΙΑ  ΘΕΛΕΙΣ» 

600  ΡΡΙΝΤ  «ΝΑ  ΑΠΟΘΗΚΕΥΣΕΙΣ  ΤΟ  ΕΝΗΜΕΡΩΜΕΝΟ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ» 

610  ΡΡΙΝΤ: ΡΡΙΝΤ 
620  6051ΙΒ  1080 
630  : 

640  0Ε5 

650  ΡΡΙΝΤ  «ΤΟ  ΑΡΧΕΙΟ  ΕΝΗΜΕΡΩΝΕΤΑΙ» 

660  ΡΡΙΝΤ: ΡΡΙΝΤ 

670  ΡΟΡ  η=0  ΤΟ  ΪΓ3Π5-1 

680  :  $η=ΐΓθ(0,η)-1 

690  :  ΙΡ  ΐπ:(1,η)  =  1  ΤΗΕΝ  ηυπι(0,5η)=ηυπι(0,$η)-ΐΓο(2,η) 

700  :  ΙΡ  ϊγο(1/·π)=2  ΤΗΕΝ  ηυππ(0,5η)=ηϋπι(0,5η)  +  ΐΓθ(2,η) 

710  :  ΡΡΙΝΤ"."; 

720  ΝΕΧΤ 

730  ΡΡΙΝΤ: ΡΡΙΝΤ 

740  ΡΡΙΝΤ  «Η  ΕΝΗΜΕΡΩΣΗ  ΟΛΟΚΛΗΡΩΘΗΚΕ.  ΤΟ  ΝΕΟ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ» 

750  ΡΡΙΝΤ  «ΕΧΕΙ ΑΠΟΘΗΚΕΥΤΕΙ» 

760  ΡΡΙΝΤ: ΡΡΙΝΤ 
770  : 

780  0ΡΕΝ01Π  "δΐοεΚ" 

790  γ$=0ΗΡ$( 13) 

800  ΡΡΙΝΤ  #9 ,  \  ΐθπ)$ 

810  ΡΟΡ  η=0  ΤΟ  ί Τθγπ5—  1 

820  :  ΡΡΙΝΤ  #9,άθ5$(η);Γ$;ηυΓη(0,η);Γ$;ηυ(τι(  1,η);Γ$;ηυπη(2,η) 

830  ΝΕΧΤ 
840  01Ο3ΕθυΤ 
850  : 

860  015 

870  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ.  ΓΡΑΨΕ  ΕΠΑΝΩΤΟΥ  (ΤΗΣ)» 

880  ΡΡΙΝΤ  «ΑΠΟΘΕΜΑΤΑ  ΚΛΙΤΗΝ  ΣΗΜΕΡΙΝΗ  ΗΜΕΡΟΜΗΝΙΑ» 

890  ΡΡΙΝΤ: ΡΡΙΝΤ 

900  ΡΡΙΝΤ  «ΒΕΒΑΙΩΣΟΥ  ΟΤΙ  Ο  ΕΚΤΥΠΩΤΗΣ  ΣΟΥ  ΕΙΝΑΙ  ΑΝΑΜΜΕΝΟΣ  ΚΑΙ» 

910  ΡΡΙΝΤ  «ΕΧΕΙ  ΜΕΣΑ  ΧΑΡΤΙ» 

920  ΡΡΙΝΤ: ΡΡΙΝΤ 
930  605υΒ  1080 
940  : 

950  ΡΡΙΝΤ  #8,  «ΕΙΔΗ  ΠΟΥ  ΠΡΕΠΕΙ  ΝΑ  ΠΑΡΑΓΓΕΛΘΟΥΝ  ΠΑΛΙ:» 

960  ΡΡΙΝΤ  #8, 

970  ΡΡΙΝΤ  #8, 

980  ΡΟΡ  η=0  ΤΟ  ϊϊθπι$-1 

990  :  ΙΡ  ηυπι( Ο,η )<=ηυ(Τ)(  1  ,η )  ΤΗΕΝ  605υΒ  1140 
1000  ΝΕΧΤ 

1010  ΡΡΙΝΤ  #8,  «ΑΡΝΗΤΙΚΟΙ  ΑΡΙΘΜΟΙ  ΣΗΜΑΙΝΟΥΝ  ΟΤΙ  ΠΕΛΑΤΕΣ  ΠΕΡΙΜΕΝΟΥΝ» 
1020  ΡΡΙΝΤ  #8,  «ΠΡΟΪΌΝΤΑ» 

1030  0Ε5 
1040  ΕΝΡ 
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1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 


ΡΕΜ  Αηγ  Κβγ 

ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

3$=ΙΝΚΕΥ$:ΙΡ  1_ΕΝ(3$)=0  ΤΗΕΝ  1090 

ΡΕΤυΡΝ 


ΡΕΜ  Εκτύπωση  λεπτομερειακών  στοιχείων 
ΡΡΙΝΤ  #8,  «ΑΡΙΘΜΟΣ  ΕΙΔΟΥΣ··,,  η+1 
ΡΡΙΝΤ  Κ  8,  «ΠΕΡΙΓΡΑΦΗ»,,  ΟΗΚ$  (32);  8εε  $  (η) 

ΡΡΙΝΤ  #8,  «ΠΟΣΟΤΗΤΑ  ΑΠΟ  ΤΟ  ΕΙΔΟΣ  ΣΤΟ  ΑΠΟΘΕΜΑ»,  ηυπι(Ο,η) 
ΡΡΙΝΤ  #8,  «ΚΑΤΩΤΑΤΟ  ΟΡΙΟ  ΓΙΑ  ΝΕΑ  ΠΑΡΑΓΓΕΛΙΑ»,  ηιιπιΠ  η) 
ΡΡΙΝΤ  #8,  «ΠΟΣΟΤΗΤΑ  ΝΕΑΣ  ΠΑΡΑΓΓΕΛΙΑΣ»,  ηυπι  (2,  η) 

ΡΡΙΝΤ  #8, 

ΡΡΙΝΤ  » 8, 

ΡΕΤυΡΝ 
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Π27  ΕΚΤΥΠΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ 


Το  πρόγραμμα  εκτυπώνει  το  αρχείο  αποθήκης,  που  είναι  φυλαγμένο  σε  δί¬ 
σκο  ή  κασέτα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Να  έχεις  έτοιμο  το  δίσκο  ή  την  κασέτα  του  αρχείου  αποθήκης  σου. 


10  ΡΕΜ  «Εκτύπωση  του  αρχείου  αποθεμάτων» 

20  ΜΟΰΕ  1 

30  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
40  ΡΕΝ  1: ΙΝΚ  1,24 
50  ΒΟΡΡΕΡ  1 
60  01.5 
70  : 

80  ΡΡΙΝΤ  Τ ΑΒ (11) - 

90  ΡΡΙΝΤ  Τ  ΑΒ  (11)  «ΕΚΤΥΠΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΕΜΑΤΩΝ» 

100  ΡΡΙΝΤ  ΤΑ8(  1 1 )" - " 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΙΑΒΑΖΕΙ  ΕΝΑ  ΑΡΧΕΙΟ  ΑΠΟΘΗΚΗΣ  ΑΓΙΟ¬ 
Ι  30  ΡΡΙΝΤ  «ΕΝΑ  ΔΙΣΚΟ  Η  ΚΑΣΕΤΑ  ΚΑΙ  ΤΟ  ΕΚΤΥΠΩΝΕΙ  ΜΕ  ΜΟΡΦΗ  Κ  ΑΤΑΛΟΓΟΥ»· 
140  ΡΡΙΝΤ: ΡΡΙΝΤ 

150  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΑΠΟΘΗΚΗΣ» 

160  ΡΡΙΝΤ: ΡΡΙΝΤ 

170  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

180  3$=ΙΝΚΕΥ$:ΙΡ  ΕΕΝ(3$)=0  ΤΗΕΝ  180 
190  : 

200  ΡΡΙΝΤ 

210  0ΡΕΝΙΝ  "ετοεΚ" 

220  ΙΝΡυΤ  #9,ϊΐθπΐ5 
230  ΰΙΜ  όθ5$(  ϊίθϋΐδ— 1) 

240  ίΙΜ  πυιτι(2,ιΐθίη5-1) 

250  Ρ0Ρ  π=0  ΤΟ  ϊ ΐθΓΠδ— 1 

260  :  ΙΝΡϋΤ  #9,άθ5$(η),ηυπι(0,η),ηυπι(1,η),ηυιτι(2,η) 

270  ΝΕΧΤ 
280  0105ΕΙΝ 
290  : 

300  0Ι_5 

310  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ ΔΙΣΚΟ'Η  ΤΗΝ  ΚΑΣΕΤΑ» 

320  ΡΡΙΝΤ: ΡΡΙΝΤ 

330  ΡΡΙΝΤ  «ΒΕΒΑΙΩΣΟΥ  ΟΤΙ  Ο  ΕΚΤΥΠΩΤΉΣ  ΣΟΥ  ΕΙΝΑΙ  ΑΝΑΜΜΕΝΟΣ  ΚΑΙ» 

340  ΡΡΙΝΤ' «ΕΧΕΙ  ΜΕΣΑ  ΧΑΡΤΙ»  ■ 

350  ΡΡΙΝΤ: ΡΡΙΝΤ 

360  ΡΡΙΝΤ  «ΠΑΤΗΣΕ ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

370  3$=ΙΝΚΕΥ$:  I Ρ  1_ΕΝ(3$)=0  ΤΗΕΝ  370 
380  ΡΡΙΝΤ  #8,  «ΑΡΧΕΙΟΑΠΟΘΗΚΗΣ» 

390  ΡΡΙΝΤ  #8," - ■" 

400  ΡΡΙΝΤ  #8, 

410  ΡΡΙΝΤ  #8, 

420  Ρ0Ρ  π=0  ΤΟ  1  ΐ ΘΓΠ5—  1 

430  :  ΡΡΙΝΤ  #8,  «ΑΡΙΘΜΟΣ  ΕΙΔΟΥΣ»,,  η+Ι 

440  :  ΡΡΙΝΤ  #8,  «ΠΕΡΙΓΡΑΦΗ»„ΟΗΚ$(32);8ε5  $  (η) 

450  :  ΡΡΙΝΤ  #8,  «ΠΟΣΟΤΗΤΑ  ΑΠΟ  ΤΟ  ΕΙΔΟΣ  ΣΤΟ  ΑΠΟΘΕΜΑ»,  ηυηι(Οίΐ) 

460  :  ΡΡΙΝΤ  #8,  «ΚΑΤΩΤΑΤΟ  ΟΡΙΟ  ΓΙΑ  ΝΕΑ  ΠΑΡΑΓΓΕΛΙΑ»,  ηυπι(Ι,  η) 

470  :  ΡΡΙΝΤ  #8,  «ΠΟΣΟΤΗΤΑ  ΝΕΑΣ  ΠΑΡΑΓΓΕΛΙΑΣ»,  ηυιη  (2,  η) 

480  :  ΡΡΙΝΤ  #8, 
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490  :  ΡΡΙΝΤ  #8, 

500  ΝΕΧΤ 

510  ΡΚΙΝΤ  #8,  «ΑΡΝΗΤΙΚΟΙ  ΑΡΙΘΜΟΙ  ΣΗΜΑΙΝΟΥΝ  ΟΤΙ  ΠΕΛΑΤΕΣ  ΠΕΡΙΜΕΝΟΥΝ» 
520  ΡΚΙΝΤ  η 8 ,  «ΠΡΟΪΌΝΤΑ» 

530  01$ 


540  ΕΝΡ 
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Π28  ΕΚΤΥΠΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ 


Το  πρόγραμμα  εκτυπώνει  το  αρχείο  συναλλαγών,  που  είναι  αποθηκευμένο 
σε  δίσκο  ή  κασέτα. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Να  έχεις  έτοιμο  το  δίσκο  ή  την  κασέτα  του  αρχείου  συναλλαγών. 


10  ΡΕΜ  Εκτύπωση  του  αρχείου  συναλλαγών 
20  ΜΟΰΕ  1 

30ΤΑΡΕΡ  0:  ΙΝΚ  0,1 
40  ΡΕΝ  1: ΙΝΚ  1,24 
50  ΒΟΡϋΕΡ  1 
60  01$ 

70  : 

80  ΡΡΙΝΤ  ΤΑΒ(8)" - " 

90  ΡΡΙΝΤ  ΤΑΒ( 8)  «ΕΚΤΥΠΩΣΗ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΣΥΝΑΛΛΑΓΩΝ» 

100  ΡΡΙΝΤ  ΤΑΒ( 8 ) " - " 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΙΑΒΑΖΕΙ  ΕΝΑ  ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ» 
130  ΡΡΙΝΤ  «ΑΠΟ ΔΙΣΚΟ  Η  ΚΑΣΕΤΑ  ΚΑΙ  ΤΟ  ΕΚΤΥΠΩΝΕΙ  ΜΕ  ΜΟΡΦΗ» 

140  ΡΡΙΝΤ  «ΚΑΤΑΛΟΓΟΥ» 

150  ΡΡΙΝΤ 

160  ΡΡΙΝΤ  «ΑΥΤΟ  ΔΙΝΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΣΤΟ  ΧΡΗΣΤΗ  ΝΑ  ΕΧΕΙ  ΕΝΑ» 

170  ΡΡΙΝΤ  «ΑΝΤΙΓΡΑΦΟ  ΤΩΝ  ΣΥΝΑΛΛΑΓΩΝ  ΤΗΣ  ΗΜΕΡΑΣ  ΣΤΑ  ΧΕΡΙΑ  ΤΟΥ» 
180  ΡΡΙΝΤ: ΡΡΙΝΤ 

190  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΣΤΗΝ  ΟΠΟΙΑ  ΕΙΝΑΙ» 

200  ΡΡΙΝΤ  «ΑΠΟΘΗΚΕΥΜΕΝΟ  ΤΟ  ΑΡΧΕΙΟ  ΣΥΝΑΛΛΑΓΩΝ» 

"210  ΡΡΙΝΤ:ΡΡΙΝΤ 

220  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
230  3$=ΙΝΚΕΥ$:  I Ρ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  230 
240  : 

250  ΡΡΙΝΤ 

260  0ΡΕΝΙΝ  "ϊγβπΙϊΙθ" 

270  ΙΝΡυΤ  #9,  ι  ΐβηπ5,ΐΓ3η5 
280  ΡΙΜ  δθ5$(  ιΐθπίδ-Ι) 

290  ΡΙΜ  πυιτιί 2,ΤΓ3Π5- 1 ) 

300  Ε0Ρ  π=0  ΤΟ  ίΐθίτίδ-Ι:  ΙΝΡΟΤ  #9,δθ5$(η):ΝΕΧΤ 
310  Ρ0Ρ  π=0  ΤΟ  ΙΓ3Π5-1 

320  :  ΙΝΡυΤ  #9,πυπι(0,η),ηυπι(  1,η),ηυπ>(2,η) 

330  ΝΕΧΤ 
340  0ΕΟ5ΕΙΝ 
350  : 

360  α$ 

370  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Ή  ΤΗΝ  ΚΑΣΕΤΑ» 

380  ΡΡΙΝΤ: ΡΡΙΝΤ 

390  ΡΡΙΝΤ  «ΒΕΒΑΙΩΣΟΥ  ΟΤΙ  Ο  ΕΚΤΥΠΩΤΗΣ  ΕΙΝΑΙ  ΑΝΑΜΜΕΝΟΣ  ΚΑΙ  ΕΧΕΙ» 
400  ΡΡΙΝΤ  «ΜΕΣΑ  ΧΑΡΤΙ»" 

410  ΡΡΙΝΤ: ΡΡΙΝΤ 

420  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΘΑ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
430  3$=ΙΝΚΕΥ$:ΙΕ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  430 
440  ΡΡΙΝΤ  #8,  «ΑΡΧΕΙΟ ΣΥΝΑΛΛΑΓΩΝ» 

450  ΡΡΙΝΤ  #8," - " 

460  ΡΡΙΝΤ  #8, 

470  ΡΡΙΝΤ  #8, 

480  Ε0Ρ  π=0  ΤΟ  ΪΓ3Π5-1 
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490  5η=ηυπι(0,η) 

500  :  ΡΡΙΝΤ  #8,  «ΑΡΙΘΜΟΣ ΕΙΔΟΥΣ», 5η 

510  :  ΡΡΙΝΤ  #8,  «ΠΕΡΙΓΡΑΦΗ»,,  ΟΗΚ$  (32);  8εδ  $($η-1) 

520  ΙΡ  ηυΓΠ(1,η)  =  1  ΤΗΕΝ  ΐ$=  «ΑΦΑΙΡΕΣΗ»  ΕΕ5Ει$=  «ΠΡΟΣΘΗΚΗ» 
530  :  ΡΡΙΝΤ  #8,  «ΚΩΔΙΚΟΣ  ΣΥΝΑΛΛΑΓΗΣ»,  ηυιη(1,  η);  «-»;!$ 

540  :  ΡΡΙΝΤ  #8,  «ΠΟΣΟΤΗΤΑ»,,  ηιιπι  (2, η) 

550  :  ΡΡΙΝΤ  #8, 

560  :  ΡΡΙΝΤ  #8, 

570  ΝΕΧΤ 
580  0Ε5 
590  ΕΝΡ 


Π29  ΔΗΜΙΟΥΡΓΙΑ  ΤΑΧΥΔΡΟΜΙΚΟΥ 
ΚΑΤΑΛΟΓΟΥ 


Αυτό  το  πρόγραμμα  μπορεί  να  δημιουργήσει  έναν  ταχυδρομικό  κατάλογο 
που  να  περιλαμβάνει  μέχρι  50  ονόματα  και  διευθύνσεις  και  να  αποθηκεύσει 
αυτές  τις  πληροφορίες  σε  δίσκο  ή  κασέτα.  Μπορεί  όμως  να  επεκταθεί  και  να 
περιλάβει  περισσότερα  ονόματα  και  διευθύνσεις. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Βεβαιώσου  ότι  έχεις  εύκαιρο  ένα  δίσκο  που  έχει  υποστεί  ΓοιτηαΙ  ή  μια  άγρα¬ 
φη  κασέτα. 

Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Δημιουργία  ταχυδρομικού  καταλόγου 
20  ΜΟΰΕ  1 

30  ΡΑΡΕΡ  0:1 ΝΚ  0,1 
40  ΡΕΝ  1:  ΙΝΚ  1,24 
50  ΒΟΡΡΕΡ  1 
60  0Ι_$ 

70  : 

80  ΡΡΙΝΤ  ΤΑΒ(9)" - " 

90  ΡΡΙΝΤ  ΤΑΒ( 9)  «ΔΗΜΙΟΥΡΓΙΑ ΤΑΧΥΔΡΟΜΙΚΟΥ  ΚΑΤΑΛΟΓΟΥ» 

100  ΡΡΙΝΤ  ΤΑΒ(9)" - " 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  ..ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΟΥ  ΔΙΝΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΝΑ  ΕΙΣΑΓΕΙΣ» 
130  ΡΡ I ΝΤ  ..ΜΕΧΡΙ  50  ΟΝΟΜΑΤΑ  ΚΑΙ  ΔΙΕΥΘΥΝΣΕΙΣ  ΚΑΙ  ΝΑ  ΤΙΣ  ΑΠΟΘΗΚΕΥΣΕΙΣ» 
140  ΡΡΙΝΤ  ..ΣΑΝ  ΕΝΑ  ΤΑΧΥΔΡΟΜΙΚΟ  ΚΑΤΑΛΟΓΟ» 

150  ΡΡΙΝΤ 

160  ΡΡΙΝΤ  «ΚΑΘΕ  ΔΙΕΥΘΥΝΣΗ  ΠΕΡΙΟΡΙΖΕΤΑΙ  ΣΕ  ΤΕΣΣΕΡΕΙΣ  ΓΡΑΜΜΕΣ» 

170  ΡΡΙΝΤ"  ΣΥΜΠΕΡΙΛΑΜΒΑΝΟΜΕΝΟΥ  ΚΑΙ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΚΩΔΙΚΑ» 

180  ΡΡΙΝΤ 

190  ΡΡ  I  ΝΤ  «ΠΑΡΑΚΑΛΩ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΑ  ΔΕΔΟΜΕΝΑ,  ΟΤΑΝ  ΣΟΥ  ΖΗΤΟΥΝΤΑΙ» 
200  ΡΡΙΝΤ 

210  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

220  3$=ΙΝΚΕΥ$:ΐΡ  1_ΕΝ(3$)  =  0  ΤΗΕΝ  220 
230  : 

240  ϋΙΜ  πσι$<49) 

250  0ΙΜ  3ύ$(49,3) 

260  Ρ0Ρ  π=0  ΤΟ  49 
270  :  015 

280  :  ΡΡΙΝΤ  ΤΑΒ( 6 )  «ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  » 

:  ΡΡΙΝΤ  «ΠΛΗΚΤΡΟΛΟΓΕΙΣ ΤΟ επιΐ» 

290  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

300  :  ΙΝΡΙΙΤ  «  ΌΝΟΜΑ»;  πγπ  $  (π) 

310  :  <5=0 

320  :  ΗΗΙΙΕ  ΐ_θν/ΕΡ$(ηπι$(η) )<>"εηά"  ΑΝ0  ί$=0 
330  :  ΡΡΙΝΤ  «ΔΙΕΥΘΥΝΣΗ:» 

340  :  ΙΝΡυΤ  «ΓΡΑΜΜΗ  1»;3<1$(η,0) 

350  :  ΙΝΡυΤ  «ΓΡΑΜΜΗ  2»:3<15(η.  I) 

360  :  ΙΝΡυΤ  «ΓΡΑΜΜΗ  3»; 3(15 (η, 2) 

370  :  ΙΝΡυΤ  «ΤΑΧΥΔΡΟΜΙΚΟΣ  ΚΩΔΙΚΑΣ». α<1$ (η,  3) 

380  :  ί 5=1 

390  :  ΜΕΝβ 
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400  :  ΙΡ  Ε0ΜΕΡ$(  πγγι$(  η )  )  =  "θη€ΐ"  ΤΗΕΝ  η=49 
410  ΝΕΧΤ 
420  : 

430  0Ε5 

440  ΡΡΙΝΤ  -ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  '  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΣΤΗΝ  ΟΠΟΙΑ» 

450  ΡΡΙΝΤ  -ΘΕΛΕΙΣ  ΝΑ  ΑΠΟΘΗ  ΚΕΥΣΕΙΣ  ΤΟΝ  ΤΑΧΥΔΡΟΜΙΚΟ  ΣΟΥ  ΚΑΤΑΛΟΓΟ 
460  ΡΡΙΝΤ: ΡΡΙΝΤ 

470  ΙΝΡυΤ  «ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΑΡΧΕΙΟΥ»;  η3Γη$ 

480  ΙΡ  ΕΕΝ(η3Γη$)>8  ΤΗΕΝ  Π3ηη$=ΕΕΡΤ$(η3Πΐ$,8) 

490  ΡΡΙΝΤ: ΡΡΙΝΤ 
500  : 

510  ΟΡΕΝΟϋΤ  Π3Πΐ$ 

520  Ρ0Ρ  η=0  ΤΟ  49 
530  :  ί 5=0 

540  :  ΝΗΙΕΕ  Ε0ΜΕΡ$(ηη$(η)  )<>"βηο)"  ΑΝϋ  ί5=0 
550  :  ΡΡΙΝΤ  #9,ηπι$(η) 

560  :  ΡΟΡ  Χ=0  ΤΟ  3:  ΡΡΙΝΤ  #9,3θ1$(  η,ΙΟ  :  ΝΕΧΤ 

570  :  ί 5= 1 

580  :  ΜΕΝϋ 

590  :  ΙΡ  ΕΟΜΕΡ$(ηπι$(η)  )  =  "θηά"  ΤΗΕΝ  η=49 

600  ΝΕΧΤ 

610  ΟΕΟδΕΟυΤ 

620  0Ε5 

630  ΕΝϋ 


Π30  ΤΡΟΠΟΠΟΙΗΣΗ 
ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΚΑΤΑΛΟΓΟΥ 


Αυτό  το  πρόγραμμα  σου  παρέχει  τη  δυνατότητα  να  τροποποιείς  το  ταχυδρο¬ 
μικό  κατάλογο  που  έχει  προηγουμένως  δημιουργηθεί  και  να  αποθηκεύεις  το 
νέο  κατάλογο  σε  δίσκο  ή  κασέτα. 

Το  πρόγραμμα  μπορεί  να  επεκταθεί  ώστε  να  τροποποιεί  περισσότερα  από  50 
ονόματα  και  διευθύνσεις. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Βεβαιώσου  ότι  έχεις  εύκαιρη  την  κασέτα  ή  το  δίσκο  του  ταχυδρομικού  κατά- 
λογου  και  ακόμη  μια  άγραφη  κασέτα  ή  δίσκο  που  έχει  υποστεί  ίοιτηαΐ. 


10  ΡΕΜ  Τροποποίηση  του  ταχυδρομικού  καταλόγου 
20  ΙΊΟβΕ  1 

30  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
40  ΡΕΝ  1: ΙΝΚ  1,24 
50  ΒΟΡβΕΡ  1 
60  01.5 
70  : 

80  ΡΡΙΝΤ  ΤΑΒ( 7 ) " - " 

90  ΡΡΙΝΤ  ΤΑΒ(  7) -ΤΡΟΠΟΠΟΙΗΣΗ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΚΑΤΑΛΟΓΟΥ» 

100  ΡΡΙΝΤ  ΤΑΒ(7>" - " 

110  ΡΡΙΝΤ: ΡΡΙΝΤ 

120  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΟΥ  ΠΑΡΕΧΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΝΑ  » 
130  ΡΡΙΝΤ»  ΠΡΟΣΘΕΤΕΙΣ  ΚΑΙ  ΝΑ  ΑΦΑΙΡΕΙΣ  ΟΝΟΜΑΤΑ  ΑΠΟ  ΕΝΑ  » 

140  ΡΡΙΝΤ  «ΤΑΧΥΔΡΟΜΙΚΟ  ΚΑΤΑΛΟΓΟΠΟΥ  ΕΧΕΙΣ  ΔΗΜΙΟΥΡΓΗΣΕΙ  ΑΠΟ” 
150  ΡΡΙΝΤ  «ΠΡΙΝ  ΚΑΙ  ΕΧΕΙΣ  ΑΠΟΘΗΚΕΫΣΕΙ  ΣΕ  ΔΙΣΚΟ  Ή  ΚΑΣΕΤΑ» 

160  ΡΡΙΝΤ: ΡΡΙΝΤ 

170  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟΉ  ΤΗΝ  ΚΑΣΕΤΑ  ΠΟΥ  ΠΕΡΙΕΧΕΙ  ΤΟ» 

180  ΡΡΙΝΤ  «ΑΡΧΕΙΟ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΣΟΥ  ΚΑΤΑΛΟΓΟΥ» 

190  ΡΡΙΝΤ: ΡΡΙΝΤ 

200  ΙΝΡυΤ  «ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΑΡΧΕΙΟΥ»;  παπιί 
210  ΙΕ  1_ΕΝ(π3πι$)>8  ΤΗΕΝ  Π3Πΐ$=Ι.ΕΕΤ$(η3Πΐ$,8) 

220  ΡΡΙΝΤ 
230  : 

240  βΙΜ  πγπ$(49) 

250  βΙΜ  3(55(49,3) 

260  0ΡΕΝΙΝ  Π3ΓΠ5 
270  ΜΗΙΙ_Ε  Ε0Ρ=0 

280  :  ΙΝΡυΤ  #9,πιτι$(η),3α$(η,0),38$(η,1  ),3ά$(η,2),3ά$(π,3) 

290  :  π=π+1 

300  ΜΕΝβ 

310  θπΐΓίθ5=η-1 

320  : 

330  $1=5 

340  ΜΗΙ  1_Ε  5104 

350  :  01.5 

360  :  ΙΕ  5  1  =  5  ΤΗΕΝ  ΡΡΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Ή  ΤΗΝ  ΚΑΣΕΤΑ» 

370  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

380  :  ΡΡΙΝΤ  «ΔΙΑΛΕΞΕ  ΤΟ  ΕΙΔΟΣ  ΤΗΣ  ΤΡΟΠΟΠΟΙΗΣΗΣ» 

390  :  ΡΡΙΝΤ  «ΠΑΤΩΝΤΑΣ  ΤΟ:» 
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400  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

410  :  ΡΡΙΝΤ  ΤΑΒ( 6)  «ΠΛΗΚΤΡΟ  1  -  ΠΡΟΣΘΗΚΗ  ΔΙΕΥΘΥΝΣΕΩΝ» 

420  :  ΡΡΙΝΤ  ΤΑΒ(6)  «ΠΛΗΚΤΡΟ  2  -  ΑΦΑΙΡΕΣΗ  ΔΙΕΥΘΥΝΣΕΩΝ» 

430  :  ΡΡΙΝΤ  ΤΑΒ ( 6 )«ΠΛΗΚΤΡΟ  3  -  ΑΠΟΘΗΚΕΥΣΗ  ΝΕΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ 
:  ΡΡΙΝΤ  Λ  ΚΑΤΑΛΟΓΟΥ» 

440  :  ΡΡΙΝΤ  ΤΑΒ( 6)  «ΠΛΗΚΤΡΟ  4  -  ΤΕΡΜΑΤΙΣΜΟΣ  ΠΡΟΓΡΑΜΜΑΤΟΣ» 

450  :  3$="" 

460  :  ΗΗΙΙΕ  3$<>"1"  ΑΝΘ  3$<>"2"  ΑΝΘ  3$<>"3"  ΑΝΘ  3$<>"4” 

470  :  3$=ΙΝΚΕΥ$ 

480  :  ΜΕΝΘ 

490  :  5 I =Α50 ( 3$ )-48 

500  :  ΟΝ  5 I  605υΒ  570,890,1360 

510  ΜΕΝΘ 

520  0Ε5 

530  ΕΝΘ 

540  : 

550  : 

560  ΡΕΜ  Προσθήκη  στο  κατάλογο 
570  θχ ϊ ΐ=0: 3πγ=2 
580  ΜΗΙΕΕ  θχιΐ=0  ΑΝΘ  θπϊγϊθ5<49 
590  :  015 

600  :  ΡΡΙΝΤ  ΤΑΒ( 8)  «ΕΙΣΑΓΩΓΗ  ΝΕΩΝ  ΠΛΗΡΟΦΟΡΙΩΝ» 

610  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

620  :  ΡΡΙΝΤ  «ΠΛΗΚΤΡΟΛΟΓΗΣΕ  επά  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

630  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

640  :  ΙΝΡίΙΤ  «ΟΝΟΜΑ»;  ππι$  (επίπεε+ΐ) 

650  :  ίδ=0 

660  :  3Γ$=Ε0ΜΕΡ$(ηιπ$(θηΐΓ  ΐθδ+1 ) ) 

670  :  ΜΗΙΕΕ  ί$=0  ΑΝΘ  3Γ$<>"6ΠθΙ" 

680  :  ΡΡΙΝΤ' «ΔΙΕΥΘΥΝΣΗ:» 

690  :  ΙΝΡίΙΤ  «ΓΡΑΜΜΗ  1»;  3ά5  (επίπεε+Ι,Ο) 

700  :  ΙΝΡυΤ  «ΓΡΑΜΜΗ  2»;  3ά$  (επΙπεε+Ι,Ι) 

710  :  .ΙΝΡΙΙΤ  «ΓΡΑΜΜΗ  3»;  3ά$  (εηΙπεδ+ 1,2) 

720  :  ΙΝΡυΤ  «ΤΑΧΥΔΡΟΜΙΚΟΣ  ΚΩΔΙΚΑΣ»;  3ά$  (εηΙτίε$+!,3) 

730  :  ΘΠΐΓ 1Θ5=ΘΠΪΓ Ϊ65+1 

740  :  ί 5=1 

750  :  3ηχ=1 

760  :  ΜΕΝΩ 

770  :  ΙΕ  3Γ$=”θπά"  ΤΗΕΝ  βχϊΐ=1 
780  ΜΕΝΘ 
790  : 

800  0Ι_5 

810  ΙΕ  ΘΠΐΓ  ϊθ5=49  ΤΗΕΝ  ΡΡΙΝΤ  «Ο  ΤΑΧΥΔΡΟΜΙΚΟΣ  ΚΑΤΑΛΟΓΟΣ  ΕΧΕΙ 
:  ΡΡΙΝΤ  &  ΣΥΜΠΛΗΡΩΘΕΙ» 

820  ΡΡΙΝΤ 

830  I Ε  " 3Πχ=  1  ΤΗΕΝ  ΡΡΙΝΤ  «Η  ΝΕΑ  ΠΛΗΡΟΦΟΡΙΑ  ΕΧΕΙ  ΚΑΤΑΧΩΡΗΘΕΙ» 

840  ΟΝ  3Πγ  605υΒ  1580,1660 
850  ΡΕΤυΡΝ 
860  : 

870  : 

880  ΡΕΜ  Αφαίρεση  διευθύνσεων 
890  εχ ΐ ΐ =0: 3Πγ=2 
900  ΜΗΙΙΕ  εχ  ί  ΐ=0 
910  :  0Ε5 

920  :  ΡΡΙΝΤ  Τ ΑΒ ( 9 )  «ΑΦΑΙΡΕΣΗ  ΠΛΗΡΟΦΟΡΙΩΝ» 

930  :  ■  ΡΡΙΝΤ: ΡΡΙΝΤ 

940  :  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΟ  ΑΚΡΙΒΕΣ  ΟΝΟΜΑ» 

950  :  ΡΡΙΝΤ  «ΠΟΥ  ΑΝΤΙΣΤΟΙΧΕΙ  ΣΤΟ  ΗΔΗ  ΚΑΤΑΧΩΡΗΜΕΝΟ,  ΠΟΥ  ΘΕΛΕΙΣ» 

960  :  ΡΡΙΝΤ  «ΝΑ  ΑΦΑΙΡΕΣΕΙΣ.  ΕΑΝ  ΥΠΑΡΧΟΥΝ  ΔΥΟ  ΔΙΕΥΘΥΝΣΕΙΣ» 

970  :  ΡΡΙΝΤ' «ΠΟΥ  ΑΝΑΦΕΡΟΝΤΑΙ  ΣΤΟ  ΙΔΙΟ  ΟΝΟΜΑ,  ΘΑ  ΑΦΑΙΡΕΘΟΥΝ» 

980  :  ΡΡΙΝΤ  «ΚΑΙ  ΟΙ  ΔΥΟ» 

990  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

1000  :  ΙΝΡΙΙΤ  «ΟΝΟΜΑ»;  ηβιτιί 
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1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 


γ=50 

ΡΟΚ  Κ=0  ΤΟ  θΠΐΓΐθδ 

ΙΡ  ηπη$(Κ)=η3Γη$  ΤΗΕΝ  γ=Κ:  Χ=βηΐ ϊβδ: 3ηχ=1 
ΝΕΧΤ 

ΡΚΙΝΤ:ΡΚΙΝΤ 

ΙΡ  γ  =  50  ΤΗΕΝ  ΡΚΙΝΤ  «ΤΟ  ΟΝΟΜΑ  ΔΕΝ  ΒΡΕΘΗΚΕ» 
ί  5  =  0 

ΙΡ  γ<50  ΑΝΘ  εηΐΓΐθ$=0  ΤΗΕΝ  βχ ϊ ΐ=1 : ΘΠΐΓ ϊβδ=-1 :  ί 3=  1 
ΜΗΙΙΕ  ί  3=0  ΑΝΟ  γ<50 
ΡΚΙΝΤ  «ΕΝΗΜΕΡΩΣΗ» 

ΡΚΙΝΤ 

ΡΟΚ  Ι<=Γ  ΤΟ  βηΐΓϊθδ-1 
ηπι$  ( Ι< ) =ηιη$  ( Κ+ Ί  ) 

ΡΟΚ  ί=0  ΤΟ  3:3θ$(Χ,ϊ)=3θ$(Ι<+1,ϊ):ΝΕΧΤ 
ΡΚΙΝΤ".”; 

ΝΕΧΤ 

ΘΠΐΓ  ίθ3  =  θηΐΓ  ΪΘ5-1 
ίδ=1 
ΙΙΕΝΘ 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΙΡ  θχίΐ  =  0  ΤΗΕΝ  ΙΝΡυΤ  «ΑΛΛΗ  ΑΦΑΙΡΕΣΗ  (χ/ν)»;  ν$  ;γ$ 
γ$=1_0ΗΕΚ$(Ι.ΕΡΤ$(γ$,1)) 

ΙΡ  /$<>"/’  ΤΗΕΝ  θχϊΐ=1 
ΜΕΝΘ 

01.3 

ΙΡ  θΠΐΓΪβδ=-1  ΤΗΕΝ  ΡΚΙΝΤ  «Ο  ΤΑΧΥΔΡΟΜΙΚΟΣ  ΚΑΤΑΛΟΓΟΣ  » 
:  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΚΕΝΟΣ» 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΙΡ  3ηχ=1  ΤΗΕΝ  ΡΚΙΝΤ  «ΟΙ  ΚΑΤΑΧΩΡΗΣΕΙΣ  ΑΦΑΙΡΕΘΗΚΑΝ» 

ΙΡ  6Πΐ Γ  ϊ θδ“—  1  ΤΗΕΝ  3ηχ=2 
ΟΝ  βηχ  6051ΙΒ  1580,1660 
ΚΕΤυΚΝ 


1340  : 

1350  ΚΕΜ  Αποθήκευση  νέου  αρχείου 
1360  015 

1370  ΙΡ  θΠΐΓΪ6δ  =  -1  ΤΗΕΝ  ΡΚΙΝΤ  «ΚΕΝΟ  ΑΡΧΕΙΟ»;  ΟΟδΙΙΒ  1660:  ΚΕΤυΚΝ 
1380  ΡΚΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Ή  ΤΗΝ  ΚΑΣΕΤΑ  ΣΤΗΝ  ΟΠΟΙΑ  ΘΕΛΕΙΣ» 

1390  ΡΚΙΝΤ  «ΝΑ  ΑΠΟΘΗΚΕΥΣΕΙΣ  ΤΟ  ΝΕΟ  ΤΑΧΥΔΡΟΜΙΚΟ  ΚΑΤΑΛΟΓΟ» 
1400  ΡΚΙΝΤ: ΡΚΙΝΤ 

1410  ΙΝΡυΤ  “ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΝΕΟΥ  ΚΑΤΑΛΟΓΟΥ»;  ηΙ$ 

1420  ΙΡ  1_ΕΝ  (πΙ$)>8  ΤΗΕΝ  ηί$=ΙΕΡΤ$<ηΙ$,8) 

1430  ΡΚΙΝΤ 
1440  ΟΡΕΝΟϋΤ  πΙ$ 

1450  ΡΟΚ  π=0  ΤΟ  ΘΠΐΓ  ϊβδ 
1460  ΡΚΙΝΤ  #9,ηπι$(η) 

1470  :  ΡΟΚ  ϊ=0  ΤΟ  3:ΡΚΙΝΤ  #9,3εΙ$(η,ϊ  ):ΝΕΧΤ 
1480  ΝΕΧΤ 
1490  ΟΕΟδΕΟυΤ 
1500  ΡΚΙΝΤ: ΡΚΙΝΤ 

1510  ΡΚΙΝΤ  «ΒΓΑΛΕ  ΤΟ  ΔΙΣΚΟ  Ή  ΤΗΝ  ΚΑΣΕΤΑ  ΚΑΙ  ΓΡΑΨΕ  ΕΠΑΝΩ  ΤΟΥΣ» 
1520  ΡΚΙΝΤ  «ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΑΡΧΕΙΟΥ  ΚΑΙ  ΤΗ  ΣΗΜΕΡΙΝΗ  ΗΜΕΡΟΜΗΝΙΑ» 
1530  ΟΟδίΙΒ  1660 


1540  ΚΕΤυΚΝ 
1550  : 

1560  : 


1570 

1580 

1590 

1600 

1610 

1620 


ΚΕΜ  Ολοκλιίρωσπ  της  αφαίρεσης  ή  της  προσθήκης 

ΡΚΙΝΤ  "«ΘΥΜΗΣΟΥ  ΟΤΙ  ΔΕΝ  ΕΧΕΙΣ  ΑΚΟΜΗ  ΑΠΟΘΗΚΕΥΣΕΙ  ΤΟ  ΝΕΟ» 
ΡΚΙΝΤ  «ΚΑΤΑΛΟΓΟ.  ΕΑΝ  ΟΛΟΚΛΗΡΩΣΕΣ  ΤΗΝ  ΕΝΗΜΕΡΩΣΗ  ΤΟΥ» 
6051ΙΒ  1660 
ΚΕΤυΚΝ 
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1630  : 

1640  : 

1650  ΡΕΜ  Οποιοδήποτε  πλήκτρο 
1660  ΡΡΙΝΤ: ΡΚΙΝΤ 

1670  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΠΙΣΤΡΕΨΕΙΣ  ΣΤΟΝ» 
:  ΡΚΙΝΤ  «ΚΥΡΙΟ  ΠΙΝΑΚΑ  ΕΠΙΛΟΓΩΝ» 

1680  Κ$=ΙΝΚΕΥ$:  ΙΡ  1_ΕΝ(Ι<$)=0  ΤΗΕΝ  1680 
1690  ΚΕΤΙΙΚΝ 
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Π31  ΕΚΤΥΠΩΣΗ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ 
ΚΑΤΑΛΟΓΟΥ 


Αυτό  το  πρόγραμμα  μπορεί  να  εκτυπώσει  τα  ονόματα  και  τις  διευθύνσεις  του 
ταχυδρομικού  καταλόγου  σε  ετικέτες. 

Χρήσιμο  θα  ήταν  να  επεκταθεί  το  πρόγραμμα  ώστε  να  μπορεί  να  «ψάχνει» 
τον  ταχυδρομικό  κατάλογο  και  να  σου  επιτρέπει  να  τον  ορίζεις  να  εκτυπώνει 
μόνο  τις  διευθύνσεις  που  θέλεις,  εκείνες  π.χ.  που  ανήκουν  σε  ονόματα  που 
αρχίζουν  με  ένα  συγκεκριμένο  γράμμα  του  αλφαβήτου.  Το  πρόγραμμα  θα 
μπορούσε  επίσης  να  επεκταθεί  έτσι  ώστε  να  εμφανίζει  στην  οθόνη  τον  αριθ¬ 
μό  του  τηλεφώνου  ενός  προσώπου  όταν  πληκτρολογείς  το  όνομά  του. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Βεβαιώσου  ότι  έχεις  εύκαιρο  το  δίσκο  ή  την  κασέτα  του  ταχυδρομικού  σου 
κατάλογου. 

Εάν  θέλεις  μπορείς  να  μεταβάλλεις  τις  γραμμές  που  υποδεικνύουν  σε  εντο¬ 
λές  ΚΕΜ  ώστε  να  καθορίζεις  τον  τρόπο  που  οι  διευθύνσεις  θα  εκτυπώνονται 
στις  ετικέτες  σου. 


10  ΡΕΜ  Εκτύπωση  του  ταχυδρομικού  κατάλογου 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1:  ΙΝΚ  1,24 
40  ΒΟΡΟΕΡ  1 
50  ΜΟΟΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ(10)'· - " 

80  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΕΚΤΎΠΩΣΗ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΚΑΤΑΛΟΓΟΥ» 

90  ΡΡΙΝΤ  ΤΑΒ(10)" - ’’ 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΟΥ  ΕΠΙΤΡΕΠΕΙ  ΝΑ  ΤΥΠΩΣΕΙΣ  ΕΤΙΚΕΤΕΣ» 
120  ΡΡΙΝΤ  «ΑΠΟ ΤΑ  ΔΕΔΟΜΕΝΑ  ΠΟΥ ΠΕΡΙΕΧΟΝΤΑΙ  ΣΕ  ΕΝΑ  ΤΑΧΥΔΡΟΜΙΚΟ¬ 
Ι  30  ΡΡΙΝΤ  «ΚΑΤΑΛΟΓΟ,  ΠΟΥ  ΕΧΕΙΣ  ΔΗΜΙΟΥΡΓΗΣΕΙ  ΑΠΟ  ΠΡΙΝ  ΚΑΙ  ΕΧΕΙΣ» 
140  ΡΡΙΝΤ «ΑΠΟΘΗΚΕΥΣΕΙ  ΣΕ  ΔΙΣΚΟ  Ή  ΚΑΣΕΤΑ» 

150  ΡΡΙΝΤ: ΡΡΙ ΝΤ 

160  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΗΝ  ΚΑΣΕΤΑ  Ή  ΤΟ  ΔΙΣΚΟ  ΠΟΥ  ΠΕΡΙΕΧΕΙ  ΤΟ» 

170  ΡΡΙΝΤ  «ΑΡΧΕΙΟ  ΤΟΥ  ΤΑΧΥΔΡΟΜΙΚΟΥ  ΣΟΥ  ΚΑΤΑΛΟΓΟΥ» 

180  ΡΡΙΝΤ:ΡΡΙΝΤ 

190  ΙΝΡυΤ«ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΑΡΧΕΙΟΥ»;  ηαπι$ 

200  ΙΡ  Ι_ΕΝ(η3πι$)>8  ΤΗΕΝ  π3ΐπ$=!-ΕΡΤ$(η3ηι$,8) 

210  ΡΡΙΝΤ 

220  : 

230  0ΙΜ  πω$(49) 

240  0ΙΜ  3ε|$(49,3) 

250  0ΡΕΝΙΝ  η3ΐτι$ 

260  ΗΗΙΙΕ  Ε0Ρ=0 

270  :  ΙΝΡυτ  #9,η(η$(η),3ά$(π,0),3θ$(π,1),3ΐΙ$(η,2),3ΐ)${η,3) 

280  :  π=η+1 

290  ΜΕΝύ 

300  θπΐΓΐβ5=η-1 
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310  : 

320  0Ι_5 

330  ΡΚΙΝΤ  «ΒΓΑΛΕ  ΤΗΝ  ΚΑΣΕΤΑ  Ή  ΤΟ  ΔΙΣΚΟ  ΣΟΥ» 

340  ΡΚΙΝΤ: ΡΚΙΝΤ 

350  ΡΚΙΝΤ  «ΒΕΒΑΙΩΣΟΥ  ΟΉ  ΟΙ  ΛΕΥΚΕΣ  ΕΤΙΚΕΤΕΣ» 

360  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΜΕΣΑ  ΣΤΟΝ  ΕΚΤΥΠΩΤΗ  ΚΑΙ  ΣΕ» 

370  ΡΚΙΝΤ  «ΣΩΣΤΗ  ΘΕΣΗ» 

380  ΡΚΙΝΤ:ΡΚΙΝΤ 

390  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΜΟΛΙΣ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

400  3$=ΙΝΚΕΥ$:  ΙΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  400 
410  : 

420  ΙΏ3Γ  =  10:  ΚΕΜ  Τροποποίησε  αυτήν  την  εντολή  για  να  τυπώνονται  σωστά  οι  ετικέτες 

430  Ρ0Κ  η=0  ΤΟ  εηίΓΪβδ 

440  :  ΡΚΙΝΤ  #8,ΤΑΒ(πΐ3Γ);ηιη$(η) 

450  :  Ρ0Κ  }=0  ΤΟ  3 

460  :  ΡΚΙΝΤ  #8,ΤΑΒ(πΐ3Γ  );3ό$(η,  ϊ ) 

470  :  ΝΕΧΤ 

480  :  Ρ0Κ  Κ=0  ΤΟ  2: ΡΚΙΝΤ  #8:ΝΕΧΤ 

490  :  ΚΕΜ  Τροποποίησε  την  προηγούμενη  εντολή  για  να  πετύχεις  ικανοποιητικό 
500  :  ΚΕΜ  κενό  διάστημα  μεταξύ  των  ετικετών. 

510  ΝΕΧΤ 
520  015 
530  ΕΝΰ 
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Μια  από  τις  ανάγκες  της  οικογένειας  είναι  και  η  κατάστρωση  του  μηνιαίου 
προϋπολογισμού.  Πιστεύουμε  ότι  ο  υπολογιστής  είναι  χρήσιμος  για  την 
πραγμάτωση  αυτού  του  έργου. 

Καθώς  το  πρόγραμμα  αρχίζει  να  τρέχει,  ζητάει  από  τους  χρήστες  να  εισά¬ 
γουν  όλα  τα  έξοδα  και  έσοδά  τους.  Το  πρόγραμμα  τερματίζεται  με  την  πα¬ 
ρουσίαση  του  μηνιαίου  ισολογισμού  στην  οθόνη  ή  σε  χαρτί. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Μηνιαίοι  λογαριασμοί 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,24 
30  ΡΕΝ  1: ΙΝΚ  1,30 
40  Β0ΡΡΕΡ  24 
50  Μ0ΡΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ(  12)" - - - " 

80  ΡΡΙΝΤ  ΤΑΒ(  12)  «ΜΗΝΙΑΙΟΙ ΛΟΓΑΡΙΑΣΜΟΙ» 

90  ΡΡΙΝΤ  ΤΑΒ(  12)" - — - " 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΕ  ΒΟΗΘΑΕΙ  ΝΑ  ΠΡΟ  Ϋ  ΠΟΛΟΓΙΖΕΙΣ  ΤΑ  » 
120  ΡΡΙΝΤ  «ΜΗΝΙΑΙΑ  ΕΣΟΔΑ  ΚΑΙ  ΕΞΟΔΑ  ΣΟΥ» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΑΠΟ  ΕΣΕΝΑ  ΧΡΕΙΑΖΕΤΑΙ  ΝΑ  ΤΟΥ  ΔΩΣΕΙΣ  ΣΤΟΙΧΕΙΑ  ΓΙΑ  ΤΙΣ.. 

150  ΡΡ I ΝΤ  «ΟΙΚΟΝΟΜΙΚΕΣ  ΣΟΥ  ΣΥΝΑΛΛΑΓΕΣ  ΚΑΙ  ΠΑΡΑΓΕΙ  ΕΝΑΝ  ΙΣΟΛΟΓΙΣΜΟ» 
160  ΡΡΙΝΤ 

170  ΡΡΙΝΤ  «ΕΑΝ  ΘΕΛΕΙΣ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΣΕΙΣ  ΕΝΑΝ  ΕΚΤΥΠΩΤΗ, ΣΕ 

180  ΡΡΙΝΤ  «  ΠΑΡΑΚΑΛΩ-ΒΕΒΑΙΩΣΟΥ  ΟΤΙ  ΕΙΝΑΙ  ΣΥΝΔΕΔΕΜΕΝΟΣ,  ΑΝΑΜΜΕΝΟΣ  » 

190  ΡΡΙΝΤ" ΚΑΙ ΕΧΕΓΜΕΣΑ ΧΑΡΤΙ» 

200  ΡΡΙΝΤ 

210  ΡΡΙΝΤ  "ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΟΤΑΝ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 

220  3$=ΙΝΚΕΥ$: I Ρ  ΕΕΝ(3$)=0  ΤΗΕΝ  220 
230  : 

240  0.5 

250  ΡΡΙΝΤ  ΤΑΒ(11)' «ΤΑΚΤΙΚΑ  ΕΞΟΔΑ»1 
260  ΡΡΙΝΤ 
270  ΡΡΙΝΤ 

280  ΙΝΡυΤ  «ΕΞΟΦΛΗΣΗ  ΔΑΝΕΙΟΥ»; ΐΡΟΓΐ 
290  ΙΝΡυΤ  «ΠΛΗΡΩΜΗ  ΤΟΚΩΝ»;γ3ϊθ5 
300  ΙΝΡυΤ  «ΠΛΗΡΩΜΗ  ΕΝΟΙΚΙΟΥ»  ,τβπΐ 
310  ΙΝΡυΤ  «Δ.Ε.Η.»;εΙβο 
320  ΙΝΡυΤ  «ΦΩΤΑΕΡΙΟ»  ;935 
330  ■: 

340  ΡΕΜ  Εισαγωγή  εξόφλησης  πιστώσεων 
350  ε=1 
360  ΡΡΙΝΤ 
370  ΡΡΙΝΤ 

380  ΡΡΙΝΤ  ΤΑΒ(9)  «ΕΞΟΦΛΗΣΗ  ΠΙΣΤΩΤΙΚΗΣ  ΚΑΡΤΑΣ» 

390  ΡΡΙΝΤ 
400  ΗΗΙίΕ  εΟΟ 

410  :  ΙΝΡυΤ  «ΕΞΟΦΛΗΣΗ  ΠΙΣΤΩΣΗΣ  (ΠΑΤΗΣΕ  ΤΟ  0  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ)»;  ο 
420  :  '  εΓεάϊΐ^ΓβςΙιτ+ς 
430  ΜΕΝΡ 
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440  : 

450  ΡΚΙΝΤ 
460  ΡΚΙΝΤ 

470  ΙΝΡυΤ  «ΑΛΛΑ  ΤΑΚΤΙΚΑ  ΕΞΟΔΑ  (ΣΥΝΟΛΟ)»;  οίΗβτ 
480  ΡΚΙΝΤ 

490  Γ69=Π10Γΐ  +  Γ3Τε5  +  +  Γθηΐ+6ΐθ€  +  93  5  +  αΓΘ£ϋΐ+0ΐΜβΓ 
500  : 

510  ΚΕΜ  Εισαγωγή  άλλων  εξόδων 
520  Οίδ 

530  ΡΚΙΝΤ  ΤΑΒ(8)  «ΛΟΙΠΑ  ΜΗΝΙΑΙΑ  ΕΞΟΔΑ» 

540  ΡΚΙΝΤ 

550  ΡΚΙΝΤ  «ΠΕΡΑΣΕ  ΤΑ  ΕΚΤΙΜΩΜΕΝΑ  ΠΟΣΑ  ΑΝ  ΔΕΝ»  ποΐ" 

560  ΡΚΙΝΤ  «ΓΝΩΡΙΖΕΙΣ  ΤΑ  ΠΡΑΓΜΑΤΙΚΑ» 

570  ΡΚΙΝΤ 
580  ΡΚΙΝΤ 

590  ΙΝΡυΤ  «ΑΠΛΗΡΩΤΟΙ  ΠΑΛΑΙΟΙ  ΛΟΓΑΡΙΑΣΜΟΙ  (ΣΥΝΟΛΟ)»;  οΐό  ΕΐΙΙε 

600  ΙΝΡυΤ  «ΛΟΓΑΡΙΑΣΜΟΣ  ΜΑΝΑΒΙΚΟΥ»;  βτος 

610  ΙΝΡΙΙΤ  «ΛΟΓΑΡΙΑΣΜΟΣ  ΚΡΕΟΠΩΛΕΙΟΥ»;  ΕυΙοΙι 

620  ΙΝΡυΤ  «ΕΞΟΔΑ  ΤΑΞΙΔΙΟΥ»;  ιταν 

630  ΙΝΡυΤ  «ΑΝΑΜΕΝΟΜΕΝΑ  ΕΞΟΔΑ  ΑΝΑΨΥΧΗΣ»;  βηΐΓ 

640  ΡΚΙΝΤ 

650  ΡΚΙΝΤ 

660  ΡΚΙΝΤ  Τ ΑΒ ( 8 )  «ΛΟΙΠΟΙ  ΛΟΓΑΡΙΑΣΜΟΙ  ΤΟΥ  ΜΗΝΑ» 

670  ΡΚΙΝΤ 
680  6- 1 

690  ΜΗΙΕΕ  600 

700  :  ΙΝΡυΤ  «ΠΟΣΟ  ΛΟΓΑΡΙΑΣΜΟΥ  (ΠΑΤΗΣΕ  ΤΟ  0  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ)»;  6 
710  :  οϊ6θγ6ϊ  I  Ιδ:=οΐ60Γ6ϊ  1 1$+6 
720  ΝΕΝϋ 
730  : 

740  (ηοηΐΙι6ϊ  I  ΐ5=9Γοε+6υΐο6+ΐΓ3ν+6ηΐΓ+ο1:6θΓ6ϊ  I  Ιδ 
750  ΐοΐ3ΐουΐ=Γθ9+πιοηΐ66ΐ  I  Ιδ+οί66Η  1$ 

760  : 

770  ΚΕΜ  Εισαγωγή  εισοδήματος 
780  0Ι_5 

790  ΡΚΙΝΤ  ΤΑΒ(  12)  «ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ» 

800  ΡΚΙΝΤ 
810  ΡΚΙΝΤ 

820  ΙΝΡυΤ  «ΠΕΡΑΣΕ  ΤΟ  ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ  ΣΟΥ»,  ϊποί 
830  ΡΚΙΝΤ 

840  ΙΝΡΙΙΤ  «ΠΕΡΑΣΕ  ΤΟ  ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ  ΤΗΣ  ΓΥΝΑΙΚΑΣ  ΣΟΥ»,  ίπε2 
850  ΡΚΙΝΤ 

860  ΙΝΡυΤ  «ΠΕΡΑΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΑΛΛΟ  ΚΑΘΑΡΟ  ΕΣΟΔΟ»,  ίπς  3 
870  ΡΚΙΝΤ 
880  ΡΚΙΝΤ 

890  ϊηςοιτΐθ=ΐης1  +  ϊηο2+ϊης3 
900  63ΐ3Πςθ=ϊηςοιτ)6-ΐοΐ3ΐουΐ 
910  : 

920  ΡΚΙΝΤ  «ΔΙΑΛΕΞΕ  ΤΟΝ  ΤΡΟΠΟ  ΠΑΡΟΥΣΙΑΣΗΣ  ΤΩΝ  ΑΠΟΤΕΛΕΣΜΑΤΩΝ  ΠΑΤΩΝΤΑΣ  ΤΟ:. 
930  ΡΚΙΝΤ  . 

940  ΡΚΙΝΤ  ΤΑΒ(6)  «ΠΛΗΚΤΡΟ  I  ΠΑ  ΤΗΝ  ΟΘΟΝΗ» 

950  ΡΚΙΝΤ  ΤΑΒ<6)  «ΠΛΗΚΤΡΟ  2  ΓΙΑ  ΤΟΝ  ΕΚΤΥΠΩΤΗ» 

960  3$=ΙΝΚΕΥ$:ΙΡ  3$<>"1"  ΑΝ'6  3$<>"2”  ΤΗΕΝ  960 
970  ΙΡ  3$="2"  ΤΗΕΝ  ε(ΐ3=8 
980  αδ 

990  ΡΚΙΝΤ  #ε63,ΤΑΒ{  12)  «ΜΗΝΙΑΙΟΣ  ΠΡΟΎ  ΠΟΛΟΓΙΣΜΟΣ» 

1000  ΡΚΙΝΤ  #ς!ΐ3,ΤΑ8(  12)” - ” 

1010  ΡΚΙΝΤ  #ςΠ3 
1020  ΡΚΙΝΤ  #είΐ3 

1030  ΡΚΙΝΤ  #εΙΐ3,  «ΣΧΟΛΙΑ»;  5ΡΟ  (14)  «ΕΞΟΔΑ»;  8ΡΟ  (8)  «ΕΣΟΔΑ» 

1040  ΡΚΙΝΤ  0063," - : - - - " 

1050  ΡΚΙΝΤ  #εθ3 

1060  ΡΚΙΝΤ  Μζ\ 13,  «Τακτικές  πληρωμές»;  δΡΟ(3); 
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1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 


ΡΚΙΝΤ  #οΙ)3,  ΙΙ5ΙΝ6  "####.##";ΓΘ9 
ΡΚΙΝΤ  #είΐ3 

ΡΚΙΝΤ  #είΐθ,  «.«ΛΟΓΑΡΙΑΣΜΟΙ  ΑΥΤΟΥ  ΤΟΥ  ΜΗΝΑ»  δΡΟ  (3); 

ΡΚΙΝΤ  #εΡΐ3,  υ$ΙΝ6  "####.##";ιηοηί1ι&ϊ 1 15 
ΡΚΙΝΤ  #οΙΐ3 

ΡΚΙΝΤ  #ε1ΐ3,  «ΑΠΛΗΡΩΤΟΙ.  ΠΑΛΑΙΟΙ.  ΛΟΓΑΡΙΑΣΜΟΙ»;  $ΡΟ  (2); 

ΡΚΙΝΤ  #ε1)3,  υδΙΝΟ  "####.##";οΐέΐβϊ  I  Ιδ 
ΡΚΙΝΤ  #0ΐΐ3 

ΡΚΙΝΤ  #0113,  ΤΑΒ(20)” - " 

ΡΚΙΝΤ  #οΙΐ3,  «ΣΥΝΟΛΙΚΑ  ΕΞΟΔΑ»;  5ΡΟ  (10); 

ΡΚΙΝΤ  #ο1ΐ3,  υδΙΝΟ  ,·####.##";ΐο'ΐ3ΐουΐ 
ΡΚΙΝΤ  #ο1ΐ3 

ΡΚΙΝΤ  #ο1ΐ3,  ΤΑΒ(31 )" - " 

ΡΚΙΝΤ  #ο1ΐ3,  «ΣΥΝΟΛΙΚΑ  ΕΣΟΔΑ»;  δΡΟ  (18); 

ΡΚΙΝΤ  #οθ3,  υ$ΙΝ6  "####.##";  ϊηοοιηθ 
ΡΚΙΝΤ  #οθ3 

ΙΡ  &3ΐ3Πεβ<0  ΤΗΕΝ  ΡΚΙΝΤ  #εΐ!3,  «ΥΠΟΛΟΙΠΟ  ΔΑΝΕΙΟΥ»;  (δΡΟ  (17) 
ΙΡ  &3ΐ3ηοθ>=0  ΤΗΕΝ  ΡΚΙΝΤ  #οΡΐ3,  «ΥΠΟΛΟΙΠΟ  ΠΙΣΤΩΣΗΣ»;  δΡΟ  (5); 
ΡΚΙΝΤ  #οΐ!3,  υδΙΝΟ  "####.##";ΑΒδ(ΐ33ΐ3ηοβ) 

ΙΡ  Ο3ΐ3ηοθ<0  ΤΗΕΝ  ΡΚΙΝΤ  #εΙΐ3,  ΤΑΒ(31  )"=======" 

ΙΡ  &3ΐ3ηεθ>=0  ΤΗΕΝ  ΡΚΙΝΤ  #ο1ΐ3,  ΤΑΒ(20)"=======" 

ΡΚΙΝΤ  #εΙ)3 

ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ» 

:  ΡΚΙΝΤ  ·»  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

3$=ΙΝΚΕΥ$:ΙΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  1310 

οι_δ 

ΕΝϋ 
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Αυτό  είναι  ένα  πρόγραμμα  γενικής  χρήσης,  που  έχουμε  εφοδιάσει  με  δεκαο¬ 
κτώ  διαφορετικούς  συντελεστές  μετατροπής.  Είναι  ιδιαίτερα  απλή  η  εκλογή 
άλλων  μονάδων  για  μετατροπή  αφού  αρκεί  για  το  σκοπό  αυτό  η  αλλαγή  των 
εντολών  δεδομένων  που  βρίσκονται  στο  τέλος  του  προγράμματ'ος. 
Διαλέξαμε  δεκαοκτώ  συντελεστές  μετατροπής  ώστε  ο  κύριος  πίνακας  επιλο¬ 
γών  να  χωράει  στην  οθόνη. 

Μετά  την  εκλογή  μιας  μετατροπής,  πρέπει  να  αποφασίσεις  για  το  ποιά  θα  εί¬ 
ναι  η  μετατρεπόμενη  μονάδα.  Για  παράδειγμα,  ίη(ιντσες)σε  επί  ή  οιπ  σε  ϊπ. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Διάλεξε  τη  μετατροπή  που  θέλεις  από  τον  πίνακα  επιλογών. 


10  ΡΕΜ  Μετατροπές  μονάδων 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,26 
30  ΡΕΝ  1: ΙΝΚ  1,5 
40  Β0ΡΡΕΡ  26 
50  Μ0ΡΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΛΒ(  15)« ===========  =  =  =  =  =  =» 

80  ΡΡΙΝΤ  ΤΑΒ(  15)  «ΜΕΤΑΤΡΟΠΕΣ  ΜΟΝΑΔΩΝ» 

90  ΡΡΙΝΤ  ΤΑΒ(  15)  «==========  =  =  =  =  =  =  =" 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΣΟΥ  ΔΙΝΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΝΑ» 
120  ΡΡΙΝΤ  «ΜΕΤΑΤΡΕΠΕΙΣ  ΣΥΝΗΘΕΙΣ  ΜΟΝΑΔΕΣ.  ΤΑ  ΔΕΔΟΜΕΝΑ» 

130  ΡΡΙΝΤ  «ΜΕΤΑΤΡΟΠΗΣ  ΠΕΡΙΕΧΟΝΤΑΙ  ΣΤΟ  ΠΡΟΓΡΑΜΜΑ» 

140  ΡΡΙΝΤ: ΡΡΙΝΤ 

150  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 
160  θ$=ΙΝΚΕΥ$:  ΙΕ  1_ΕΝ( 3$)  =0  ΤΗΕΝ  160 
170  : 

180  ΡΙΜ  ϊ 1$( 17,1 ),Ϊ3( 17) 

190  Ρ0Ρ  Π=0  ΤΟ  17 

200  :  ΡΕΑΡ  ιΙ$(η,0),ιΐ$<Π,1) 

210  ΝΕΧΤ 

220  Ρ0Ρ  π=0  ΤΟ  17 
230  :  ΡΕΑΡ  ί3(π) 

240  ΝΕΧΤ 
250  : 

260  χ$=Ύ' 

270  ΜΗΙΕΕ  Ε0ΜΕΡ$(ΕΕΡΤ$(/$,1 )  )="/" 

280  :  Οίδ 

290  :.  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΔΥΝΑΤΕΣ  ΜΕΤΑΤΡΟΠΕΣ. 

300  :  ΡΡΙΝΤ 

310  :  Ρ0Ρ  η=0  ΤΟ  17 

320  :  ΡΡΙΝΤ  υδΙΝδ  "##";η+1; 

330  :  ΡΡΙΝΤ  δΡΟ(4);ίΐ$(π,0);"  ΐο  ";ϊΙ$(η,1> 

340  :  ΝΕΧΤ 

350  :  ΡΡΙΝΤ 

360  :  ΡΡΙΝΤ  «ΔΙΑΛΕΞΕ  ΤΗ  ΜΕΤΑΤΡΟΠΗ  ΠΟΥ  ΘΕΛΕΙΣ  ΕΙΣΑΓΟΝΤΑΣ» 
370  :  ΡΡΙΝΤ  «ΤΟΝ  ΚΑΤΑΛΛΗΛΟ  ΑΡΙΘΜΟ» 

380  :  ΙΝΡυΤ  «ΠΟΙΑ  ΜΕΤΑΤΡΟΠΗ  ΕΠΙΛΕΓΕΙΣ»;  ε!ι% 

390  :  ΙΡ  οΡ%<1  0Ρ  ςέι%>1 8  ΤΗΕΝ  280 
400  : 
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410  :  01$ 

420  :  ς  =  είι%-1 

430  :  ΡΚΙΝΤ  ΤΑΒ(10)  «ΔΥΝΑΤΕΣ  ΕΠΙΛΟΓΕΣ» 

440  :  ΡΚΙΝΤ : ΡΚΙΝΤ 

450  :  ΡΚΙΝΤ  "1.  ϊ ΐ$( ς,Ο);”  ΐο  ";ϊΐ$(ο,1) 

460  :  ΡΚΙΝΤ  ”2.  ΐο  ";ίΐ$(ε,0) 

470  :  ΡΚΙΝΤ: ΡΚΙΝΤ 

480  :  ΡΚΙΝΤ  «ΔΙΑΛΕΞΕ  ΠΑΤΩΝΤΑΣ  ΤΟ  ΠΛΗΚΤΡΟ  1  Ή  ΤΟ  ΠΛΗΚΤΡΟ  2» 
490  :  3$=ΙΝΚΕΥ$: ΙΕ  3$<>"1"  ΑΝΡ  3$<>"2"  ΤΗΕΝ  490 
500  :  ΟΝ  νΑΙ_(3$)  60$υΒ  650,720 
510  :  ΡΚΙΝΤ: ΡΚΙΝΤ 

520  :  ΡΚΙΝΤ  «ΒΑΛΕ  ΤΗΝ  ΤΙΜΗ  ΤΟΥ  ΜΕΓΕΘΟΥΣ»;  (15; 

530  : ■  ΙΝΡυΤ  33 
540  :  ΡΚΙΝΤ: ΡΚΙΝΤ 

550  :  ΡΚΙΝΤ  33;ΐ1$;"  =";ί3οΐ*33;ΐ2$ 

560  :  ΡΚΙΝΤ: ΡΚΙΝΤ 

570  :  ΙΝΡϋΤ  «ΑΛΛΗ  ΜΕΤΑΤΡΟΠΗ  (γ/η)·>;>5 
580  ΝΕΝΡ 
590  : 

600  01$ 

610  ΕΝΟ 
620  : 

630  : 

640  ΚΕΜ  Πρώτη  επιλογή 
650  Ι3εΐ=ί3(ε) 

660  ΐ1$=  ϊΐ$( ο,Ο) 

670  ΐ2$=ίΐ$(ο,1) 

680  ΚΕΤυΚΝ 
690  : 

700  : 

710  ΚΕΜ  Δεύτερη  επιλογή 
720 

730  ΐ1$=ίΐ$(ε,1) 

740  ί2$=ϊΐ$(ε,0) 

750  ΚΕΤυΚΝ 
760  : 

770  : 

780  ΚΕΜ  Μετατρεπόμενες  μονάδες 

790  ΟΑΤΑ  ϊπςΙΐθ5,οιτι,1θθί,ίηθΐΓθ3,γ3Γτΐ3,ΓηθίΓθ8,ηιί  Ιθδ 
800  ϋΑΓΑ  Κ Ηι.πιβΐΓθ5,ΐθ35ροοη3,ςς,ϊ3!3ΐ65ροοπ5,εο,ευρ5 
810  δΑΤΑ  ΜΐΓβ8,ρΐηΐ3,ΜΐΓ65,£ΐυ3Γΐ8,ΙιΐΓθ5,93ΐΙοη5 
820  βΑΤΑ  I  ί  ΐΓθ5,ουηεε5,9<'3Πΐ5,ρουηεΐ5,1<  ΐ  Ιθ9Γ3Πΐ5,ΐοη5 
830  βΑΤΑ  1<  ί  Ιο9Γ3Πΐ5,πιΐ  Ιθ8/ίιουΓ,ιπβΐ['θ5/3θθθΠ(Ι 
840  ϋΑΤΑ  3ρυ3ΓΘ  γ3Γ(ΐ5,59υ3ΓΘ  Π)θΐΓΘ5,γθ3Γ3,5θεθηΐΐ5 
850  ΒΑΤΑ  3ΐΓΓΟ5ρΙΐθΓΘ5,0Π1  Η9,3ςΓΘ5,Ιΐθ0ΐ3ΓΘ5 
860  : 

870  : 

880  ΚΕΜ  Συντελεστές  μετατροπής 

890  ΰΑΤΑ  2. 54,. 3048, .9144, 1.609, 4. 929, 14. 788 
900  ^ΑΤ Α  .2366, .5683,1. 1365,4.546,28.3495 
910  ϋΑΤΑ  . 4536, 907. 2, .447, .8631, 3. 16Ε7 
920  ΒΑΤΑ  76,. 4047 
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Π34  ΚΑΤΑΛΟΓΟΣ  ΗΜΕΡΟΜΗΝΙΩΝ 
ΓΕΝΕΘΛΙΩΝ 


Αυτό  το  πρόγραμμα  εκμεταλλεύεται  μια  από  τις  ρουτίνες  διαλογής  (δΟΚΤ), 
που  αναπτύσσονται  σε  άλλο  πρόγραμμα  αυτού  του  βιβλίου,  τη  διαλογή 
«Βιιόόΐε  δοτί». 


Ο  κατάλογος  ημερομηνιών  γενεθλίων  χρησιμοποιείται  για  την  καταχώρηση 
όλων  εκείνων  των  γενεθλίων  που  πρέπει  να  θυμάσαι.  Το  πρόγραμμα  ταξινο¬ 
μεί  τις  ημερομηνίες  γενεθλίων  κατά  χρονική  σειρά  και  σου  παρουσιάζει  ό¬ 
σες  δεν  έχουν  περάσει  ακόμη.  Όλες  οι  ημερομηνίες  περιέχονται  σε  εντολές 
δεδομένων. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 

Όταν  φθάσεις  στο  σημείο  να  κατανοείς  τη  ροή  του  προγράμματος  μπορείς 
να  τροποποιήσεις  τις  εντολές  δεδομένων. 


10  ΚΕΜ  Κατάλογος  ημερομηνιών  γενεθλίων 
20  ΡΑΡΕΚ  0: ΙΝΚ  0,23 
30  ΡΕΝ  1 : ΙΝΚ  1,30 
40  Β0ΚΘΕΚ  23 
50  Μ0ΡΕ  1 
60  : 

70  ΡΚΙΝΤ  ΤΑΒ(  14)">  >>>>>>>>>>>>>>>>" 

80  ΡΚΙΝΤ  ΤΑΒ(  14)  «ΚΑΤΑΛΟΓΟΣ  ΗΜΕΡΟΜΗΝΙΩΝ  ΓΕΝΕΘΛΙΩΝ» 

90  ΡΚΙΝΤ  ΤΑΒ(  14)">  >  >  >  >>>!>>>>>>>>>>" 

100  ΡΚΙΝΤ:ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΚΑΤΑΧΩΡΕΙ  ΟΛΕΣ  ΤΙΣ  ΗΜΕΡΟΜΗΝΙΕΣ» 
120  ΡΚΙΝΤ  «ΓΕΝΕΘΛΙΩΝ, ΠΟΥ  ΠΡΕΠΕΙ  ΝΑ  ΘΥΜΑΣΑΙ  ΚΑΙ  ΘΑ  ΣΟΥ'» 

130  ΡΚΙΝΤ  «  ΠΑΡΟΥΣΙΑΣΕΙ  ΟΣΕΣ  ΔΕΝΈΧΟΥΝ  ΠΕΡΑΣΕΙ  ΑΚΟΜΗ  ΣΤΗ» 

140  ΡΚΙΝΤ  «  ΔΙΑΡΚΕΙΑ  ΑΥΤΟΥ  ΤΟΥ  ΧΡΟΝΟΥ» 

150  ΡΚΙΝΤ:ΡΚΙίίΤ 
160  : 

170  ΚΕΜ  Ανάγνωση  δεδομένων 
180  ΘΙΜ  Π3ιγθ$(  100),ε)3τθ(  100) 

190  ΜΗΙΙΕ  Π3ιτιθ$(  ϊπάθχ)<>"θοί" 

200  :  ϊηάεχ= ϊπάεχ+1 

210  :  ΚΕΑΘ  Π3πιθ$(  ίηΰθχ),ϋ3ΐθ(  ϊπάεχ) 

220  ΜΕΝΘ 
230  : 

240  ΚΕΜ  Ρουτίνα  ταξινόμησης 
250  ίηάεχ=ϊηάεχ-1 
260  Ρ0Κ  χ=1  ΤΟ  ιπάθχ-1 
270  :  Ρ0Κ  γ=χ+1  ΤΟ  ίπόβχ 

280  :  ΙΡ  ς)3ΐε(γ)<τΐ3ΐ;β(χ)  ΤΗΕΝ  605ί)Β  870:  ΚΕΜ  Ανταλλαγή 

290  :  ΝΕΧΤ 
300  ΝΕΧΤ 
310  : 

320  ΚΕΜ  Ρουτίνα  καταχώρησης  ημερομηνίας 

330  ΡΚΙΝΤ  «ΒΑΛΕ  ΤΗ  ΣΗΜΕΡΙΝΗ  ΗΜΕΡΟΜΗΝΙΑ  ΜΕ  ΤΗ  ΜΟΡΦΗ  ΜΜ/ΗΗ» 
340  ΝΗΙΕΕ  Ι_0ΗΕΚ$(ΚΙ6ΗΤ$(χ$,1 )  )<>"γ 
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350  :  1.00 ΑΤΕ  1,18 

360  :  ΡΡΙΝΤ  $ΡΑ0Ε$(8Ο) 

370  :  1=1 

380  :  ΜΗΙ Ι_Ε  1  =  1 
390  :  ά$="" 

400  :  η=0:ιηηι=  1:88=1 

410  :  1.00 ΑΤΕ  17,15 

420  :  ΡΡΙΝΤ  5ΡΑ0Ε$(5) 

430  :  000 ΑΤΕ  17,15 

440  :  ΜΗΙΟΕ  η<4 

450  :  θ$=ΙΝΚΕΥ$: ΙΕ  3$=""  ΤΗΕΝ  450 

460  :  1=0 

470  :  ΙΕ  Α50(3$)<48  ΟΡ  Α50<3$)>57  ΤΗΕΝ  ί=1:η=4 

480  :  η=η+1 

490  :  ά$=ό$+3$ 

500  :  ΙΕ  η=2  ΑΝΟ  1=0  ΤΗΕΝ  Γηιη= V ΑΙ_ ( ϋ $ ) 

510  :  ΙΕ  πΐΓη<1  ΟΡ  πιγπ>12  ΤΗΕΝ  η=4: 1=1 

520  :  ΙΕ  η=4  ΑΝΘ  1=0  ΤΗΕΝ  ϋ8=νΑΙ(ΒΙ6ΗΤ$( ε!$,2) ) 

530  :  ΙΕ  ά0=0  ΟΡ  άεΙ>31  ΤΗΕΝ  1  =  1 

540  :  ΙΕ  1=0  ΤΗΕΝ  ΡΡΙΝΤ  3$; 

550  :  ΙΕ  η=2  ΑΝΘ  1=0  ΤΗΕΝ  ΡΡΙΝΤ"/"; 

560  :  ΗΕΝΘ 

570  :  ΜΕΝΡ 

580  :  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

590  :  ΙΝΡυΤ  «ΕΙΝΑΙ  ΑΥΤΗ  Η  ΣΩΣΤΗ  ΗΜΕΡΟΜΗΝΙΑ  (γ/η)»;  γ$ 

600  ΗΕΝΘ 
610  : 

620  ΡΕΜ  Εκτύπωση  των  ημερομηνιών  γενεθλίων  που  δεν  έχουν  περάσει 
630  01.5 

640  ΡΡΙΝΤ  «ΟΙ  ΗΜΕΡΟΜΗΝΙΕΣ  ΓΕΝΕΘΛΙΩΝ  ΠΟΥ  ΔΕΝ  ΕΧΟΥΝ  ΠΕΡΑΣΕΙ  ΑΚΟΜΗ» 
;  ΡΡΙΝΤ  «ΤΟ  ΧΡΟΝΟ  ΑΥΤΟ  ΕΙΝΑΙ:» 

650  ΡΡΙΝΤ: ΡΡΙΝΤ 

660  π)ηΐ$=”ϋ3ηΕθ6Μ3ΓΑρΓΜ3γϋυηϋυ1Αυ95βρ0ε1:Νονθθα" 

670  ΕΟΡ  )=1  ΤΟ  ϊπϋθχ 

680  :  ΙΕ  ά3ΐ6(ί)>=νΑΙ_(εΙ$)  ΤΗΕΝ  0051ΙΒ  790:ρΓ  =  1 
690  ΝΕΧΤ 

700  ΙΕ  ρτ  =  0  ΤΗΕΝ  ΡΡΙΝΤ  ΤΑΒ( 8 )«ΔΕΝ  ΑΠΟΜΕΝΟΥΝ  ΑΛΛΕΣ  ΗΜΕΡΟΜΗΝΙΕΣ» 
:  ΡΡΙΝΤ «  ΓΕΝΕΘΛΙΩΝ» 

710  ΡΡΙΝΤ:ΡΡΙΝΤ 

720  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ» 

:  ΡΡΙΝΤ* ΓΟΠΡΟΓΡΑΜΜΑ» 

730  3$=ΙΝΚΕΥ$: ΙΕ  3$="”  ΤΗΕΝ  730 
740  α$ 

750  ΕΝΘ 
760  : 

770  : 

780  ΡΕΜ  Υπορουτίνα  παρουσίασης  στην  οθόνη 
790  ϋβγ=(ΐ3ΐ:θ( )  )-100*ΙΝΤ(ά3ΐβ(  ϊ  )/100) 

800  Γηο=ΙΝΤ(ε)3ΐε(ϊ)/100)-1 
810  ιτιο$=ΜΙΘ$(.πιηΐ$,3*ιτιο+1,3) 

820  ΡΡΙΝΤ  «Ο» ηβηιε  $ 0);  «ΓΙΟΡΤΑΖΕΙ  ΣΤΙΣ»;  όπγ  ; ιτιο$;«.» 

830  ΡΕΤΟΡΝ 
840  : 

850  : 

860  ΡΕΜ  Υπορουτίνα  ανταλλαγής 
870  1θ(πρ=ϋ3ΐθ(γ):ΐθπιρ$=η3ΐτ)θ$(/) 

880  εΐ3ΐ6(γ)=ςΐ3ΐ:6(χ):π3Π}θ$(γ)=η3ίϊΐθ$(χ) 

890  εΐ3ΐθ(χ)  =  ΐθίηρ:η3ΠΊθ$(χ)=Τθ[ηρ$ 

900  ΡΕΤυΡΝ 
910  : 

920  : 

930  ΡΕΜ  Πληκτρολόγηση  των  δεδομένων  με  τη  μορφή  όνομα,  μμηη,  όπου  μμ  είναι 
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940  ΡΕΜ  ο  αριθμός  του  μήνα  και  ηη,  η  ημερομηνία. 

950  : 

960  ΡΕΜ  Τερματισμός  εισαγωγής  των  δεδομένων  με  πληκτρολόγηση  εοΓ,  0. 

970  : 

980  ΡΕΜ  Δίνονται  μερικά  δεδομένα  σαν  παραδείγματα,  αλλά  θα  πρέπει  να  εισάγεις 
990  ΡΕΜ  τα  δικά  σου  δεδομένα  για  να  μπορείς  να  χρησιμοποιείς  το  πρόγραμμα. 
1000  : 

1010  ΡΕΜ  Μπορείς  να  εισάγεις  μέχρι  100  ημερομηνίες  με  οποιαδήποτε  σειρά. 

1020  : 

1030  : 

1040  ΡΑΤΑ  ΒΐΙΙ  δπιγΐΙιε/0812, ϋ  ϊπι  $ππΐΙι,1130,ίιζ  <5Γ3ΐ)3πι,0303 
1050  βΑΤΑ  ϋοΐιη  6οπ1οη,0419,ΤθΓθ53  6οΓάοη,1222 
1060  ΘΑΤΑ  1 3Π  ΜαΕθ3π,0421/.Αηη6  ΜοΕθ3Π,0625,53ΐιι  0οΐ3Π/·0517 
1070  0ΑΤΑ  εοί,Ο 
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Π35  ΗΜΕΡΟΛΟΓΙΟ 

Αυτό  -το  πρόγραμμα  χρησιμοποιείται  για  να  εμφανίζει  στην  οθονη  το  ημερο¬ 
λόγιο  κάθε  μήνα  του  εικοστού  αιώνα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  στοιχεία  για  το  μήνα  και  το  έτος  όταν  σου  ζητηθεί. 


10  ΚΕΜ  Ημερολόγιο 
20  ΡΑΡΕΚ  0: ΙΝΚ  0,2 
30  ΡΕΝ  1 : ΙΝΚ  1,26 
40  Β0ΚΡΕΚ  2 
50  ΜΟΰΕ  1 
60  : 

70  ΡΚΙΝΤ  ΤΑΒ(  16)" - V 

80  ΡΚΙΝΤ  ΤΑΒ(  16)  «ΗΜΕΡΟΛΟΓΙΟ» 

90  ΡΚΙΝΤ  ΤΑΒ(  16) " - " 

100  ΡΚΙΝΤ: ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  ΕΜΦΑΝΙΖΕΙ» 
120  ΡΚΙΝΤ  «ΣΤΗΝ  ΟΘΟΝΗ  ΤΟ  ΗΜΕΡΟΛΟΓΙΟΥ  ΟΠΟΙΟΥΔΗΠΟΤΕ  ΜΗΝΑ» 

130  ΡΚΙΝΤ  «ΤΟΥ  ΕΙΚΟΣΤΟΥ  ΑΙΩΝΑ» 

140  ΡΚΙΝΤ: ΡΚΙΝΤ 

150  ΙΝΡυΤ  «ΟΝΟΜΑ ΤΟΥ ΑΠΑΙΤΟΥΜΕΝΟΥ ΜΗΝΑ»; ιτιΐΗί 
160  ΡΚΙΝΤ 

170  ΙΝΡυΤ  «ΕΤΟΣ»; γ% 

180  ΡΚΙΝΤ 

190  ΡΚΙΝΤ  «ΠΑΡΑΚΑΛΩ ΠΕΡΙΜΕΝΕ» 

200  ΡΙΜ  0(6,5) 

210  : 

220  α$=  «ΔΕΥ  ΤΡΙ  ΤΕΤ  ΠΕΜ  ΠΑΡ  ΣΑΒ  ΚΥΡ» 

230  ιπΐίι$=ίΟΜΕΚ$(ιΤ)ΐΙι$) 

240  πιΐ=1 

250  ΚΕΑΡ  ηυ$,Ρ,ά 
260  η$=Ι_0ΜΕΚ$(ηυ$) 

270  : 

280  ΜΗΙίΕ  1_ΕΡΤ$(ιπτΗ$,3)<>Ι_ΕΡΤ$(η$,3)  ΑΝ0  (ΠΙ<13 
290  :  πιΐ=ιηί  +  1 

300  :  ΙΕ  πτ»ΐ<  1 3  ΤΗΕΝ  ΚΕΑϋ  ηυ$,Ρ,η 
310  :  η$=1_0ΜΕΚ$(ςυ$) 

320  ΜΕΝΩ 
330  : 

340  ΙΡ  ιπί=13  0Κ  γ%>1999  0Κ  γ%<1900  ΤΗΕΝ  ΚυΝ 
350  ΚΕΜ  Άκυρη  εισαγωγή 
360  : 

370  γ%=γ%-1900 
380  Ιθ3ρ=ΙΝΤ( γ%/4) 

390  οί ί5θΐ=/%+Ιθ3ρ 

400  ΙΡ  χ%=4*1θ3ρ  ΑΝΡ  π>1<3  ΤΗΕΝ  οί ί 5ετ=οΐ ίεβτ-Ι 

410  ΙΡ  γ%=4*ίβ3ρ  ΑΝΰ  ιπΐ=2  ΤΗΕΝ  ό=29 

420  οί ί 5βΐ=οί ί 5βτ-ΙΝΤ(οΗ5βτ/7)*7 

430  Ρ=ί+οΐΐ5θΐ 

440  ί=Ρ-ΙΝΤ(ί/7)*7 

450  ΙΡ  ί=0  ΤΗΕΝ  ί=7 

460  : 

470  Ρ0Κ  η=0  ΤΟ  ί-2 
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480  :  ο(η,0)=0 

490  ΝΕΧΤ 
500  : 

510  03γ=1 

520  ΡΟΗ  η=ί-1  ΤΟ  6 
530  :  ο(η,0)=ςΐ3γ 

540  :  εΐ3γ=<ΐ3γ+1 

550  ΝΕΧΤ 
560  : 

570  ΡΟΒ  ϊ=1  ΤΟ  5 
580  :  ΡΟΗ  π=0  ΤΟ  6 
590  :  ς(η,ϊ 

600  :  άαγ=ά3γ+'\ 

610  :  ΙΡ  ά3γ>(ί  ΤΗΕΝ  ΐ=5:η=6 

620  :  ΝΕΧΤ 
630  ΝΕΧΤ 
640  : 

650  01.5 

660  1_00 ΑΤΕ  9,3 
670  ΡΒΙΝΤ  ου$ 

680  ΕΟΟΑΤΕ  21,3 
690  ΡΒΙΝΤ  γ%+ 1900 
.700  : 

710  1.Ο0ΑΤΕ  1,8 
720  ΡΟΒ  η=0  ΤΟ  6 

730  :  ΡΒΙΝΤ  ΤΑΒ(4);ΜΙΡ$(ά$,η*3+1,3) 

740  ΝΕΧΤ 
750  : 

760  ΡΟΒ  ϊ=0  ΤΟ  5 

770  :  ΡΟΒ  η=0  ΤΟ  6 

780  :  1.00 ΑΤΕ  4*1  +  11, η+8 

790  :  ΙΡ  ο(η,ΪΚ>0  ΤΗΕΝ  ΡΒΙΝΤ  υ5ΙΝ6  ) 

800  :  ΝΕΧΤ 
810  ΝΕΧΤ 
820  : 

830  3$=ΙΝΚΕΥ$:ΙΡ  1_ΕΝ(3$)=0  ΤΗΕΝ  830 

840  ΒΕΜ  Το  πρόγραμμα  τερματίζεται  με  το  πάτημα  οποιουδήποτε  πλήκτρου 
850  01.5 
860  ΕΝΡ 

870  ϋΑΤΑ  ΙΑΝΟΥΑΡΙΟΣ,  1,  31,  ΦΕΒΡΟΥΑΡΙΟΣ,  4, 28,  ΜΑΡΤΙΟΣ,  4, 31 
880  ϋΑΤΑ  |ΑΠΡΙΛΙΟΣ,  7,  30,  ΜΑΙΟΣ,  2,  31,  ΙΟΥΝΙΟΣ,  5,  30,  ΙΟΥΛΙΟΣ,  7,  31 
890  ϋΑΤΑ  ιΑΥΓΟΥΣΤΟΣ,  3,  31  ,  ΣΕΠΤΕΜΒΡΙΟΣ,  6,  30,  ΟΚΤΩΒΡΙΟΣ,  I,  31 
900  ϋΑΤΑ,  ΝΟΕΜΒΡΙΟΣ,  4,  30,  ΔΕΚΕΜΒΡΙΟΣ,  6,  31 

ΜΑΡΤΙΟΣ  1983 
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Π36  ΤΗΛΕΦΩΝΙΚΟΣ  ΚΑΤΑΛΟΓΟΣ 


Αυτό  το  πρόγραμμα  παρέχει  τη  δυνατότητα  στο  χρήστη  να  επιλέξει  ένα  τη¬ 
λεφωνικό  αριθμό  από  ένα  κατάλογο  που  περιέχεται  με  τη  μορφή  εντολών  δε¬ 
δομένων. 

Δεν  είναι  απαραίτητο  να  εισάγεις  ολόκληρο  το  όνομα  για  να  βρεθεί  το  αντί¬ 
στοιχο  τηλέφωνο.  Αρκεί  να  εισάγεις  μια  σειρά  χαρακτήρων  που  είναι  μέρος 
του  ονόματος  για  να  εμφανισθεί  ο  τηλεφωνικός  αριθμός  στην  οθόνη. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΚΕΜ  Τηλεφωνικός  κατάλογος 
20  ΡΑΡΕΚ  0:'ΙΝΚ  0,23 
30  ΡΕΝ  1 : ΙΝΚ  1,3 
40  Β0Κ0ΕΚ  23 
50  Μ0ΘΕ  1 
60  : 

70  ΡΚΙΝΤ  ΤΑΒ(14)"++++++++++  +++++  +  +  +  +  +  + 

80  ΡΚΙΝΤ  ΤΑΒ(ΙΑ)  «ΤΗΛΕΦΩΝΙΚΟΣ  ΚΑΤΑΛΟΓΟΣ» 

90  ΡΚΙΝΤ  ΤΑΒ(  1Α)"+++++++++++++++  +  +  ++  +  + 

100  ΡΚΙΝΤ: ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΣΑΝ  ΕΝΑΣ» 

120  ΡΚΙΝΤ  «ΠΡΟΣΩΠΙΚΟΣ  ΤΗΛΕΦΩΝΙΚΟΣ  ΚΑΤΑΛΟΓΟΣ.  ΜΠΟΡΕΙ  ΝΑ» 

130  ΡΚΙΝΤ  «ΔΕΧΘΕΙ  ΜΕΧΡΙ  100  ΟΝΟΜΑΤΑ  ΚΑΙ  ΑΡΙΘΜΟΥΣ  ΤΗΛΕΦΩΝΟΥ  ΣΕ» 
140  ΡΚΙΝΤ  « ΕΝΤΟΛΕΣ  ΔΕΔΟΜΕΝΩΝ.  ΟΙ'ΠΛΗΡΟΦΟΡΙΕΣ  ΑΥΤΕΣ  ΕΙΣΑΓΟΝΤΑΙ» 
150  ΡΚΙΝΤ  «  ΣΤΟΝ  ΥΠΟΛΟΓΙΣΤΗ  ΑΠΟΤΟΝ  ΧΡΗΣΤΗ» 

160  ΡΚΙΝΤ 

170  ΡΚΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΘΑ  ΕΡΕΥΝΗΣΕΙ  ΤΗ  ΒΑΣΗ  ΔΕΔΟΜΕΝΩΝ» 

180  ΡΚΙΝΤ  «ΓΙΑ  ΝΑ  ΒΡΕΙ  ΤΟ  ΟΝΟΜΑ  ΠΟΥ  ΕΧΕΙΣ  ΔΩΣΕΙ  ΣΤΟΝ» 

190  ΡΚΙΝΤ  «ΥΠΟΛΟΓΙΣΤΗ» 

200  ΡΚΙΝΤ 

210  ΡΚΙΝΤ  «ΤΜΗΜΑ  ΤΟΥ  ΟΝΟΜΑΤΟΣ,  ΠΑΛΙ  ΘΑ  ΣΟΥ  ΔΩΣΕΙ  ΕΝΑΝ  ΑΡΙΘΜΟ» 
220  ΡΚΙΝΤ  «ΓΙΑ  ΠΑΡΑΔΕΙΓΜΑ,  ΑΝ  ΔΩΣΕΙΣ  ΤΟ  ΟΝΟΜΑ  «ΒΙΕΕ»,  ΤΟΤΕ  ΣΤΗΝ» 
230  ΡΚΙΝΤ  «ΟΘΟΝΗ  ΘΑ  ΕΜΦΑΝΙΣΘΟΥΝ  ΟΙ  ΑΡΙΘΜΟΙ  ΤΗΛΕΦΩΝΟΥ  ΓΙΑ  ΤΟΥΣ» 
240  ΡΚΙΝΤ  «ΒΙΕΕ  8ΜΙΤΗ  ΚΑΙ  ΒΙΕΕ  ΙΟΝΕ5  ΜΑΖΙ» 

250  ΡΚΙΝΤ:ΡΚΙΝΤ 
260  : 

270  ΚΕΜ  Ανάγνωση  διευθύνσεων 
280  0ΙΜ  ηπ$(  100, 1  ),π<η$(  100) 

290  ΗΗΙΕΕ  ηιη$(  ϊηόθχ)<>"θθί" 

300  :  ΐηάθχ= ϊπάθχ+1 

310  :  ΚΕΑΘ  ηπ$( ΐηάβχ,0),ηη$( ϊπάεχ,Ι ) 

320  :  πγπ$(  ϊηάβχ)=1.0ΜΕΚ$(ηη$(  ΐπάθχ,Ο) ) 

330  ΜΕΝΰ 

340  ϊηάθχ=ϊηάβχ-1 
350  : 

360  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

370  3$=ΙΝΚΕΥ$:ΙΕ  3$="”  ΤΗΕΝ  370 
380  : 

390  γ$=·ν 

400  νΐΗΙΕΕ  Ε0ΜΕΚ$(1_ΕΕΤ$(χ$,1 )  )="γ” 

410  :  0Ε5 
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420  :  ΙΝΡυΤ  «.ΠΟΙΟΥ  ΟΝΟΜΑΤΟΣ  ΘΕΛΕΙΣ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΗΛΕΦΩΝΟΥ»;  η3ΐηε$ 
430  :  η3πΐθ$=10ΗΕΚ$(η3πΐθ$) 

440  :  ΐ3=1_ΕΝ(η3Πΐθ$):  Ιουη£ΐ=0 

450  :  ΡΟΡ  ΐ=1  ΤΟ  ϊηάβχ 
460  :  1&=Ι_ΕΝ(ηπι$(  ) ) ) 

470  :  ΙΡ  ί 3<=  15  ΤΗΕΝ  6051ΙΒ  590:  ΡΕΜ  Σύγκριση  και  εμφάνιση  στην  οθόνη 

480  :  ΝΕΧΤ 

490  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

500  :  ΙΡ  ίουηά=0  ΤΗΕΝ  ΡΡΙΝΤ  «ΔΕΝ  ΕΧΟΥΜΕ  ΚΑΤΑΧΩΡΗΜΕΝΟ  ΑΡΙΘΜΟ.» 

:  ΡΡΙΝΤ  "ΤΗΛΕΦΩΝΟΥ  ΓΙΑ  ΤΟΝ»;  Π3ΐηβ$;  «.» 

510  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

520  :  ΙΝΡϋΤ  «ΑΛΛΟ  ΑΡΙΘΜΟ  ΤΗΛΕΦΩΝΟΥ  (γ/η)»;  γ$ 

530  ΜΕΝΟ 
540  01_3 
550  ΕΝϋ 
560  : 

570  :  . 

580  ΡΕΜ  Υπο ρουτίνα  σύγκρισης  και  εμφάνισης  στην  οθόνη 
590  ίί39=0 

600  ΡΟΡ  λ=1  ΤΟ  11>-1.3 

610  :  ΙΡ  ΜΙ0$(ηπι$(ί  ),Ε,ΐ3)=π3Γηε$  ΤΗΕΝ  1139=1:  Ρουηε)=1 
620  ΝΕΧΤ 

630  ΙΡ  1139=1  ΤΗΕΝ  ΡΡΙΝΤ«Ο»ηη$0',Ο);  «ΕΧΕΙ  ΑΡΙΘΜΟ  ΤΗΛΕΦΩΝΟΥ:  »;  ηπ$φ,  1);«.» 
640  ΡΕΤϋΡΝ 
650  : 

660  : 

670  ΡΕΜ  Πληκτρολόγησε  τα  δεδομένα  των  εντολών  740  -  770. 

680  ΡΕΜ  Τα  δεδομένα  είναι  στη  μορφή  «όνομα,  αριθμός». 

690  ΡΕΜ  Βεβαιώσου  ότι  τα  τελευταία  δύο  δεδομένα  είναι  εοΓ,  0. 

700  ΡΕΜ  Δίνονται  μερικά  δεδομένα  για  παράδειγμα. 

710  : 

720  : 

730  0ΑΤΑ  ΒϊΙΙ  5πιΐΐΜ2354,Βί  1 1  όοηε$,45678 

740  0ΑΤΑ  ΑΙϊοε  6Γ3ίΐ3ΐτι,0101  256  3456 

750  ΡΑΤΑ  «ίοΐιη  ΟοΓεΙοΠ/Εβδΐ  ΚίΙϋΓϊεΙε  49400 

760  ΟΑΤΑ  I 3Π  Μοίεβη, 03552  26744, ϋοε  Β1ο995,01  222  2225 

770  ΘΑΤΑ  εοί,Ο 
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Π37  ΕΠΕΝΔΥΣΕΙΣ 


Αυτό  το  πρόγραμμα  υπολογίζει  το  ύψος  του  εισοδήματος  που  μπορεί  να  απο- 
φέρει  ένα  κεφάλαιο  εάν  είναι  γνωστός  ο  τόκος  που  αποδίδεται  από  αυτό. 


Ο  χρήστης  μπορεί  να  επιλέξει  την  αύξηση  του  εισοδήματος  του  (της)  σε  βά¬ 
ρος  του  κεφαλαίου. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  Επενδύσεις 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,20 
30  ΡΕΝ  1:ΙΝΚ  1,1 
40  Β0ΡΡΕΡ  20 
50  ΜΟΰΕ  1 
60  : 

70  ΡΡΙΝΤ  ΤΑΒ( 15)”===========" 

80  ΡΡΙΝΤ  ΤΑΒ(  15)  «ΕΠΕΝΔΥΣΕΙΣ» 

90  ΡΡΙΝΤ  ΤΑΒ(15)' -==========" 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  Τ0  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΓΙΑ  ΤΟ  » 
120  ΡΡΙΝΤ  «  ΣΧΕΔΙΑΣΜΟ  ΤΩΝ  ΜΕΛΛΟΝΤΙΚΩΝ  ΣΟΥ  ΕΠΕΝΔΥΣΕΩΝ,  ΣΤΗΝ  „ 

130  ΡΡΙΝΤ  -ΠΕΡΙΠΤΩΣΗ  ΠΟΥ  ΘΕΛΕΙΣ  ΑΥΤΕΣίΟΙ  ΕΠΕΝΔΥΣΕΙΣ  ΝΑ  ΣΟΥ" 

140  ΡΡΙΝΤ  «ΕΞΑΣΦΑΛΙΣΟΥΝ  ΕΝΑ  ΤΑΚΤΙΚΟ  ΕΙΣΟΔΗΜΑ.. 

150  : 

160  ΡΡΙΝΤΙΡΚΙΝΤ 

170  ΙΝΡυΤ  «ΑΠΑΙΤΟΥΜΕΝΟ  ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ»;  ιπϊ 
180  ΡΡΙΝΤ 

190  ΙΝΡυΤ  «ΤΡΕΧΟΝ  ΕΤΗΣΙΟ  ΕΠΙΤΟΚΙΟ  (%)»;  Π 
200  : 

210  ΟΝ  ΕΡΡ0Ρ  60Τ0  560 
220  (Χ$ 

230  Γΐ=Γΐ/100 

240  ΐ  π ν=ιτ» ϊ  *  1 2/ γ  ΐ 

250  ϊπν=ΙΝΤ( ϊπν* 100+0. 5)/ 100 

260  ΡΡΙΝΤ  «ΜΙΑ  ΕΠΕΝΔΥΣΗ»;  ίην;  «ΘΑ» 

270  ΡΡΙΝΤ  «ΔΩΣΕΙ  ΕΝΑ  ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ»;  πιί 
280  ΡΡΙΝΤ 

290  ΡΡΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΔΕΝ  ΕΧΕΙ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΚΑΝΕΝΑ  ΚΕΦΑΛΑΙΟ. 
300  ΡΡΙΝΚΡΡΙΝΤ 

310  ΡΡΙΝΤ  ..ΕΑΝ  ΘΕΛΕΙΣ  ΝΑ  ΑΞΙΟΠΟΙΗΣΕΙΣ  ΤΟ  ΚΕΦΑΛΑΙΟ  ΣΟΥ» 

320  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΕΤΩΝ  ΓΙΑ  ΤΑ  ΟΠΟΙΑ  ΘΕΛΕΙΣ» 

330  ΡΡΙΝΤ  «ΑΥΤΟ  ΝΑ  ΣΟΥ  ΑΠΟΔΩΣΕΙ  ΕΝΑ  ΕΙΣΟΔΗΜΑ»  ' 

340  ΡΡΙΝΤ 

350  ΙΝΡυΤ  «ΠΟΣΑ  ΕΤΗ»; 

360  : 

370  Γΐ=Π/12 

380  ΐ=(1+Γΐ)Α(12*/Γ%) 

390  ΐην=ηιϊ*(ί-1)/Γΐ/ΐ 

400  ΐην=ΙΝΤ( ϊην*100+0. 51/100 

410  ΡΡΙΝΤ 

420  ΡΡΙΝΤ  «ΜΙΑ  ΕΠΕΝΔΥΣΗ»;  ίην;  «ΘΑ» 

430  ΡΡΙΝΤ  «ΕΞΑΣΦΑΛΙΣΕΙ  ΕΝΑ  ΜΗΝΙΑΙΟ  ΕΙΣΟΔΗΜΑ»;  γπϊ 
440  ΡΡΙΝΤ  «ΓΙΑ»;  γΓ%;  «ΕΤΗ» 

450  ΡΡΙΝΤΖΡΡΙΝΤ 
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460  ΡΚΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  Η  ΕΚΤΙΜΗΣΗ  ΤΟΥ  ΕΙΣΟΔΗΜΑΤΟΣ  ΕΙΝΑΙ  » 

470  ΡΚΙΝΤ  «  ΑΝΕΞΑΡΤΗΤΗ  ΤΩΝΙΧΡΗΣΙΜΟΠΟΙΟΥΜΕΝΩΝ  ΧΡΗΜΑΤΙΚΩΝ  ΜΟΝΑΔΩΝ» 
480  ΡΚΙΝΤ :ΡΚΙΝΤ 

490  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ» 

500  3$=ΙΝΚ£Υ$:ΙΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  500 
510  Οίδ 
520  ΕΝβ 
530  : 

540  : 

550  ΚΕΜ  Εισαγωγή  εσφαλμένων  δεδομένων 
560  ΡΚΙΝΤ: ΡΚΙΝΤ 

570  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΑΔΥΝΑΤΗ  Η  ΕΚΤΙΜΗΣΗ  ΤΟΥ  ΕΙΣΟΔΗΜΑΤΟΣ» 

580  ΡΚΙΝΤ  «ΑΠΟ  ΤΑ  ΣΤΟΙΧΕΙΑ  ΠΟΥ  ΕΧΟΥΝ  ΕΕΑΧΘΕΙ.  ΠΑΡΑΚΑΛΩ  ΤΡΕΞΕ» 

590  ΡΚΙΝΤ  «ΠΑΛΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

600  60Τ0  480 
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Π38  ΠΡΟΓΡΑΜΜΑ  ΕΞΟΦΛΗΣΗΣ  ΔΑΝΕΙΟΥ 

Το  πρόγραμμα  αυτό  προσπαθεί  να  μας  αποτρέψει  από  το  να  αγοράσουμε  κά¬ 
ποιο  είδος  εκμεταλλευόμενοι  κάποιο  δάνειο  που  παρέχεται  από  ένα  χρημα¬ 
τοπιστωτικό  οργανισμό. 

Είναι  ιδιαίτερα  διαφωτιστικό  το  να  έχουμε  μπροστά  μας  το  πλήρες  πρόγραμ¬ 
μα  των  εξοφλητικών  δόσεων  ενός  δάνειου  και  να  μπορούμε  να  δούμε  τον 
ρυθμό  με  τον  οποίο  ελαττώνεται  το  ποσό  που  παραμένει  στα  χέρια  μας. 

Εάν  τό  επιτόκιο  μεταβάλλεται  κατά  τη  διάρκεια  εξόφλησης  του  δάνειου,  τό¬ 
τε  μπορείς  να  τρέξεις  ξανά  το  πρόγραμμα  σαν  να  έπερνες  ένα  νέο  δάνειο,  με 
μικρότερο  ποσό  δανεισμού. 

Το  πρόγραμμα  σου  επιτρέπει  να  επιλέξεις  το  μέσο  παρουσίασης  των  αποτε¬ 
λεσμάτων  του,  οθόνη  ή  εκτυπωτή. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 
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ΚΕΙΊ  Πρόγραμμα  εξόφλησης  δανείου 

ΡΑΡΕΚ  0:  ΙΝΚ  0,3 

ΡΕΝ  1: ΙΝΚ  1,22 

Β0ΚΡΕΚ  3 

Μ00Ε  1 

ΡΚΙΝΤ  ΤΑΒ( 10)"***********************  »**♦***” 

ΡΚΙΝΤ  Τ ΑΒ (10)  «ΠΡΟΓΡΑΜΜΑ  ΕΞΟΦΛΗΣΗ!;  ΔΑΝΕΙΟΥ» 

ΡΚΙΝΤ  ΤΑΒ( 10)"***********************»  *  *  *  »  *  *  ” 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΤΟ  ΣΧΕΔΙΑΣΜΟ» 
ΡΚΙΝΤ  «ΤΟΥ  ΠΡΟΓΡΑΜΜΑΤΟΣ  ΕΞΟΦΛΗΣΗΣ  ΕΝΟΣ  ΔΑΝΕΙΟΥ.  ΤΟ  ΔΑΝΕΙΟ» 
ΡΚΙΝΤ  «ΕΞΟΦΛΕΙΤΑΙ  ΜΕ  ΣΤΑΘΕΡΟ  ΜΗΝΙΑΙΟ  ΠΟΣΟ.  ΣΤΑΘΕΡΟ  ΕΙΝΑΙ» 
ΡΚΙΝΤ  «ΕΠΙΣΗΣ  ΚΑΙ  ΤΟ  ΕΠΙΤΟΚΙΟ.  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΗΜΙΟΥΡΓΕΙ» 
ΡΚΙΝΤ  «ΕΝΑ  ΠΙΝΑΚΑ  (ΕΞΟΦΛΗΤΙΚΩΝ)  ΔΟΣΕΩΝ» 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΡΚΙΝΤ  «ΕΑΝ  ΘΕΛΕΙΣ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΣΕΙΣ  ΕΚΤΥΠΩΤΗ.  ΒΕΒΑΙΩΣΟΥ» 
ΡΚΙΝΤ  «ΟΤΙ  ΑΥΤΟΣ  ΕΙΝΑΙ  ΣΥΝΔΕΔΕΜΕΝΟΣ,  ΑΝΑΜΜΕΝΟΣ  ΚΑΙ  ΕΧΕΙ» 
ΡΚΙΝΤ  «ΜΕΣΑ  ΧΑΡΤΙ» 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΜΟΛΙΣ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
3$=ΙΝΚΕΥ$:1Ρ  1_ΕΝ(3$)=0  ΤΗΕΝ  220 


ΝΗΙΕΕ  Ι_0ΝΕΚ$(1_ΕΡΤ$(γ$,1  ))<>"/' 

0Ι_5 

ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΠΟΣΟ  ΤΟΥ  ΔΑΝΕΙΟΥ» 


ΙΝΡΙΙΤ 

ΡΚΙΝΤ 

ΐΝΡυτ 

ΡΚΙΝΤ 

ΐΝΡυτ 


3ΓΪ11 


-ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΕΠΙΤΟΚΙΟ  (%)»,  ίΐ 


ΔΟΣΗΣ  (1-12)»;  πιΙΙι% 


<ΔΩΣΕ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΟΥ  ΜΗΝΑ  ΚΑΤΑΒΟΛΗΣ  ΤΗΣ  ΠΡΩΤΗΣ 
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310  :  ΡΚΙΝΤ 

320  :  ΙΝΡΙΠ  «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΜΗΝΙΑΙΑ  ΔΟΣΗ»;  τερ 
330  :  ΡΚΙΝΤ 

340  :  ΙΝΡΙΙΤ  «ΠΟΙΟ  ΕΤΟΣ  ΔΙΑΝΥΟΥΜΕ»;  γτ% 

350  :  ΡΚΙΝΤ: ΡΚΙΝΤ 

360  :  ΡΚΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΕΛΕΓΞΕ  ΠΡΟΣΕΚΤΙΚΑ  ΤΑ  ΣΤΟΙΧΕΙΑ  ΠΟΥ  ΕΧΕΙΣ  ΔΩΣΕΙ 
370  :  ΡΚΙΝΤ  «ΣΤΟ  ΠΡΟΓΡΑΜΜΑ  ΑΥΤΟ  Η  ΕΙΣΑΓΩΓΗ  ΕΣΦΑΛΜΕΝΩΝ  ΣΤΟΙΧΕΙΩΝ 
380  :  ΡΚΙΝΤ  «ΘΑ  ΔΩΣΕΙ  ΑΠΑΡΑΔΕΚΤΑ  ΑΠΟΤΕΛΕΣΜΑΤΑ» 

390  :  ΡΚΙΝΤ 

400  :  ΙΝΡυΤ  «ΕΙΝΑΙ  ΣΩΣΤΑ  ΤΑ  ΣΤΟΙΧΕΙΑ  ΠΟΥ  ΕΔΩΣΕΣ  (ν/η)»  ; 

410  ΝΕΝβ 
420  : 

430  ΝΗΙΙ.Ε  303 
440  :  α$ 

450  :  ΡΚΙΝΤ  «ΔΙΑΛΕΞΕ  ΤΟΝ  ΤΡΟΠΟ  ΠΟΥ  ΘΕΛΕΙΣ  ΝΑ  ΠΑΡΟ  ΥΣΙΑΣΘΟΥΝ  ΤΑ» 

:  ΡΚΙΝΤ  «ΑΠΟΤΕΛΕΣΜΑΤΑ  ΠΑΤΩΝΤΑΣ  ΤΟ:» 

460  :  ρκιντ:ρκιντ 

470  :  ΡΚΙΝΤ  ΤΑΒ(8)  «ΠΛΗΚΤΡΟ  1  -  ΟΘΟΝΗ» 

480  :  ΡΚΙΝΤ 

490  :  ΡΚΙΝΤ  Τ ΑΒ ( 8 )  «ΠΛΗΚΤΡΟ  2  -  ΕΚΤΥΠΩΤΗΣ» 

500  :  ΡΚΙΝΤ 

510  :  ΡΚΙΝΤ  ΤΑΒ(8)  «ΠΛΗΚΤΡΟ  3  -  ΤΕΡΜΑΤΙΣΜΟΣ  ΠΡΟΓΡΑΜΜΑΤΟΣ» 

520  :  θ$=ΙΝΚΕΥ$: ΙΕ  3$<>"1"  ΑΝΟ  3$<>"2"  ΑΝΘ  3$<>"3Μ  ΤΒΕΝ  520 
530  :  3=νΑ1.(3$) 

540  :  ΟΝ  3  6051ΙΒ  620,680 

550  ΜΕΝΘ 

560  01.5 

570  ΖΟΝΕ  13 

580  ΕΝΟ 

590  : 

600  : 

610  ΚΕΜ  Οθόνη 
620  ο  1ί3=0 
630  6051ΙΒ  740 
640  ΚΕΤυΚΝ 
650  : 

660  : 

670  ΚΕΜ  Εκτυπωτής 
680  οΝ3=8 
690  6051ΙΒ  740 
700  ΚΕΤϋΚΝ 
710  : 

720  : 

730  ΚΕΜ  Παρουσίαση  αποτελεσμάτων 
740  01.5 
750  ΖΟΝΕ  10 

760  ΡΚΙΝΤ  #ς(ΐ3,  «ΕΤΟΣ»,  «ΜΗΝΑΣ»,  «ΠΟΣΟ»,  «ΠΟΣΟ». 

770  ΡΚΙΝΤ  #ο!ΐ3,ΤΑΒ(21 )  «ΕΞΟΦΛ.»,  «ΥΠΟΛ.» 

780  ΡΚΙΝΤ  #0113," - - "," - - " 

790  ΙΕ  ιτιΤ: Ιί%>  1 2  ΤΗΕΝ  γπϊ1ι%=12 
800  ΙΡ  ηΐΗ%<1  ΤΗΕΝ  ιηΐΝ%=1 
810  χ%=γΓ%:ΓΠ%=Γηΐ1ι%:3η=3Γηΐ:ρ(Ι=0 
820  ΜΗΙΙΕ  3τπ>0 
830 
840 
850 
860 
870 
880 
890 
900 

910  ΝΕΝΘ 


πι%=Γη%+ 1 

ΙΕ  πι%=13  ΤΗΕΝ  π»%=1 ; γ%=γ%+1 

3Π1  =  3ΓΠ*(  Ι  +  ΐΐ/100) 

3(Τ)=3Π1-Γερ 

ρύ=ρά+Γθρ 

ΙΡ  3(Π<0  ΤΗΕΝ  ρτ)=ρο1+3ΐη:3ΐη=0 

ηηηηηηηηη  .ηη  ηηηηηη.ηη" 

ΡΚΙΝΤ  #οΗ3,  ΙΙ5ΙΝ6  η$:νΖ;πι%; 
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7 £.\}  ΓΚ1ΠΙ  ·ΓΠ1ΠΙ 

930  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΤΟΝ  ΠΙΝΑΚΑ  ΕΠΙΛΟΓΩΝ» 
940  3$=ΙΝΚΕΥ$: ΙΡ  1/ΕΝ(3$)=0  ΤΗΕΝ  940 
950  ΚΕΤυΡΝ 


Ετος 

Μήνας 

Πληρ. 

Ποσών. 

Οφειλ. 

Ποσών 

1986 

5 

200.00 

2860.00 

1986 

6 

400.00 

2717.20 

1986 

7 

600.00 

2571.54 

1986 

8 

800.00 

2422.97 

1986 

9 

1000.00 

2271.43 

1986 

10 

1200.00 

2116.86 

1986 

11 

1400.00 

1959.20 

1986 

12 

1600.00 

1798.38 

1987 

1 

1800.00 

1634.35 

1987 

2 

2000.00 

1467.04 

1987 

3 

2200.00 

1296.38 

1987 

4 

2400.00 

1122.31 

1987 

5 

2600.00 

944.75 

1987 

6 

2800.00 

763.65 

1987 

7 

3000.00 

578.92 

1987 

8 

3200.00 

390.50 

1987 

9 

3400.00 

198.31 

1987 

10 

3600.00 

2.28 

1987 

11 

3602.32 

0.00 
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Π39  ΑΛΛΗΛΟΕΠΙΚΑΛΥΨΗ 


Αυτό  το  πρόγραμμα  δημιουργεί  ένα  σχέδιο  από  αλληοεπικαλυπτόμενες 
γραμμές,  που  επαναλαμβάνεται  για  μια  ποικιλία  χρωμάτων  εικόνας  και  φό¬ 
ντου. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  ΑΛΛΗΛΟΕΠΙΚΑΛΥΨΗ 
20  Μ00Ε  2 
30  ΡΑΡΕΡ  0 
40  ΡΕΝ  1 

50  ΡΟΡ  εοί=0  ΤΟ  25 
60  :  ΙΝΚ  Ο,εοί 

70  :  015 

80  :  ΒΟΡΰΕΡ  ςοί 

90  :  ΙΝΚ  1,25-εοί 

100  :  5ΐρ%=3+6*ΡΝ0( 1 ) 

110  : 

120  :  ΡΟΡ  Χ=0  ΤΟ  639  5ΤΕΡ  $1ρ% 

130  :  ΡίΟΤ  Χ,Ο 

140  :  ΡΡΑΜ  639-Χ,399 

150  :  ΝΕΧΤ 

160  : 

170  :  ΡΟΡ  Υ=0  ΤΟ  399  5ΤΕΡ  $ΐρ% 
180  :  ΡίΟΤ  Ο,Υ 

190  :  ΡΡΑΜ  639,399-Υ 

200  :  ΝΕΧΤ 
210  : 

220  ΡΟΡ  061=0  ΤΟ  200: ΝΕΧΤ 
230  ΝΕΧΤ 
240  ΡΙΙΝ 
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Π40  ΣΧΕΔΙΑΣΗ  ΚΥΚΛΩΝ 


Αυτό  το  πρόγραμμα  επιδεικνύει  στο  χρήστη  τρεις  διαφορετικές  μεθόδους 
σχεδίασης  κύκλων  στη  οθόνη  του  Αηΐδίχαά. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Σχεδίαση  κύκλων 
110  ΜΟϋΕ  1 
120  ΐ$=Ύ' 

130  ΡΙΜ  5ϊηρ(63),οθ5ρ(63) 

140  ΡΟΚ  ί=1  ΤΟ  63 

150  δϊηρ( ί )=5ΙΝ( ϊ*0. 1) 

160  εοερί ϊ)=00$(ι*0.1) 

170  ΝΕΧΤ  ϊ 

180  ΗΗΙΕΕ  ΐ$=”γ"  0Κ  1$="Υ·’ 

190  Μ00Ε  1 

200  ΡΚΙΝΤ  :  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

210  ΡΚΙΝΤ  "  ΚΥΚΛΟΙ  " 

220  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

230  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΤΑΙ  ΓΙΑ  ΝΑ  ΔΕΙΞΕΙ» 

240  ΡΚΙΝΤ  «ΤΟΥΣ  ΔΙΑΦΟΡΟΥΣ  ΤΡΟΠΟΥΣ  ΣΧΕΔΙΑΣΜΟΥ  ΚΥΚΛΩΝ  ΑΠΟ  ΤΟΝ» 
250  ΡΚΙΝΤ  «ΑΜδΤΚΑϋ.  ΟΙ  ΔΙΑΘΕΣΙΜΕΣ  ΜΕΘΟΔΟΙ» 

260  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΟΙ  ΕΞΗΣ:»  :  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

270  ΡΚΙΝΤ  «1.  ΜΙΚΡΟΥ  ΜΗΚΟΥΣ  ΕΥΘΥΓΡΑΜΜΑ  ΤΜΗΜΑΤΑ  ΣΤΗΝ  ΠΕΡΙΦΕΡΕΙΑ» 
280  ΡΚΙΝΤ  «2.  ΣΗΜΕΙΑ  ΚΑΤΑΝΕΜΗΜΕΝΑ  ΣΤΗΝ  ΠΕΡΙΦΕΡΕΙΑ» 

290  ΡΚΙΝΤ  «3.  ΣΚΙΑΣΜΕΝΟΣ  ΚΥΚΛΟΣ  ΜΕ  ΧΡΗΣΙΜΟΠΟΙΗΣΗ  ΣΗΜΕΙΩΝ» 

300  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

310  ΡΚΙΝΤ  «ΔΙΑΛΕΞΕ  ΜΙΑ  ΜΕΘΟΔΟ  ΓΙΑ  ΝΑ  ΔΕΙΣ  ΤΟ  ΑΠΟΤΕΛΕΣΜΑ» 

320  5=0 

330  ν/Η I Ι_Ε  5<1  0Κ  5>3 

340  5$=ΙΝΚΕΥ$:ΙΡ  5$=""  ΤΗΕΝ  340 

350  5=νΑΙ_(5$) 

360  ΜΕΝύ 
370  Μ0ΡΕ  2 
380  0ΚΙ6ΙΝ  320,200 
390  γ=150 

400  ΟΝ  5  605υβ  470,530,590 

410  ΕΟΟΑΤΕ  1  ,24: ΡΚΙΝΤ  «ΑΛΛΗ  ΔΟΚΙΜΗ  (Υ/Ν)» 

420  τ$=ΙΝΚΕΥ$:ΐΡ  ί$=,,Μ  ΤΗΕΝ  420 
430  ΜΕΝΰ 
440  ΜΟύΕ  1 
450  ΕΝύ 

460  ΚΕΜ  Μικρά  ευθύγραμμα  τμήματα 

470  ΜΟνΕ  Γ ,0 

480  ΡΟΚ  ϊ=1  ΤΟ  63 

490  ΡΚΑΝ  Γ*ςο5ρ(ι),Γ*8ϊηρ(ΐ) 

500  ΝΕΧΤ  ΐ 

510  ΚΕΤυΚΝ 

520  ΚΕΜ  Σημεία 

530  ΡΕΟΤ  Γ,Ο 

540  ΡΟΚ  ϊ=1  ΤΟ  63 

550  ΡΕΟΤ  Γ*ςο$ρ( ι),Γ*5ΐηρ( ι ) 

560  ΝΕΧΤ  ϊ 
570  ΚΕΤΙίΡΝ 
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580  ΚΕΜ  Σκίαση 

590  ϊ  1 1=0.7: ΚΕΜ  Τροποποίησε  αυτή  την  εντολή  για  να  μεταβάλλεις  το  είδος  της 
ΚΕΜ  σκίασης 
600  ίθΠ9ΐή=2*Γ 
610  Μηθ5=1βη9ΐή*ί11 
620  ς|χ=2*Γ/Μηθ5 
630  χ=Γ+ς}χ 
640  «ΗΙΕΕ  χ>-(Γ+ϋχ) 

650  χ=χ-ς|χ 
660  ΐ=Γ*ι — χ*χ 

670  ΙΡ  ΐ>0  ΤΗΕΝ  χ=$0Κ(ΐ)  Εί$Ε  γ=0 
680  ΟΟδυΒ  710 
690  ΗΕΝϋ 

700  ΚΕΜ  Γραμμοσκίαση 

710  ς1ί5ΐ=2*χ 

720  ς)οΐ$=ςΙΪ5ΐ:*ϊ  II 

730  ΙΡ  ύοΐδ=0  ΤΗΕΝ  ς)οΐδ=1 

740  ς)γ=2*γ/άο1:5 

750  Ρ0Κ  Ι<=1  ΤΟ  άοΐ5 

760  ϊ=-χ+1ς*(1γ 

770  ΡΙΟΤ  χ,ΐ 

780  ΝΕΧΤ  X 

790  ΚΕΤυΡΝ 
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Π41  ΑΛΛΗΛΟΕΠΙΚ ΑΛ ΥΠΤ ΟΜΕΝ ΟΙ  ΚΥΚΛΟΙ 


Αν  και  αυτό'το  πρόγραμμα  δεν  απαιτεί  πολύ  χρόνο  για  να  παρουσιάσει  τα  α¬ 
ποτελέσματα  του,  πιστεύουμε  ότι  αυτά  είναι  πολύ  όμορφα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  ΑΛΛΗΟΕΠΙΚΑΛΥΠΤΟΜΕΝΟΙ  ΚΥΚΛΟΙ 
20  ΡΕΜ  “ΠΡΟΓΡΑΜΜΑ  ΕΠΙΔΕΙΞΗΣ 
30  ΜΟΒΕ  0 

40  ΡΡΙΝΤ  0ΗΡ$(22)+0ΗΡ$( 1 > 

50  ΕΟΟΑΤΕ  10,10 
60  ΡΡΙΝΤ  «ΣΧΕΔΙΑΣΗ» 

70  ΒΙΜ  5Ϊηρ(63),εθ5ρ(63) 

80  Ρ0Ρ  Ι7.=  1  ΤΟ  63 
90  5  ϊηρ( Ι%)=5ΙΝ( Ι%*0. 1 ) 

100  οοερ( Ι%)=005( Ι%*0- 1 ) 

110  ΡΡΙΝΤ 
120  ΝΕΧΤ  1% 

130  : 

140  ΜΟΒΕ  0 
150  5Τ=4 

160  Ε0Ρ  Υ=10  ΤΟ  200  5ΤΕΡ  5Τ 
170  0=0:00$υβ  300 

180  0=1:6Ο$ΙΙΒ  300 

190  ΝΕΧΤ  Υ 
200  : 

210  Κ=1 

220  ΝΗΙίΕ  1=1 

230  Ρ0Ρ  1=1  ΤΟ  8 

240  ΙΝΚ  Ι,Ι+Κ  ΜΟΒ  8 

250  ΝΕΧΤ  I 

260  Κ=Κ+1  ΜΟΒ  8 

270  ΜΕΝ» 

280  ΕΝΒ 
290  : 

300  ΡΕΜ  ΥΠΟΡΟΥΤΙΝΑ  ΣΧΕΔΙΑΣΜΟΥ  ΚΥΚΛΩΝ 
310  0ΡΙ6ΙΝ  200+0*200,200 
320  Ρ=0:Μ0νΕ  Ο,Υ 
330  Ε0Ρ  Ι/£=  1  ΤΟ  63 

340  ΒΡΑΝ  Υ*$ίηρ(Ι%),Υ*εθ5ρ(Ι%),  (Υ/$Τ)  ΜΟΒ  8 
350  ΝΕΧΤ  Π. 

360  ΡΕΤυΡΝ 


100 


Π42  ΣΚΙΑΣΗ  ΓΡΑΜΜΗΣ 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  την  εντολή  ΡΙ,ΟΤ  για  να  σχεδιάσει  μια 
γραμμή  τοποθετώντας  κατά  μήκος  τη  μια  σειρά  σημείων.  Η  πυκνότητα  των 
σημείων  αυτών  καθορίζει  τη  φωτεινότητα  της  γραμμής. 

Τα  σημεία  πάνω  στη  γραμμή  υπολογίζονται  από  τον  τόπο: 

Υ=Μ*Χ+0. 

Ο  τύπος  αυτός  οδηγεί  στους  παρακάτω  κανόνες  υπολογισμού  των  σταθερών 
Μ  και  (ϋ: 


Μ=(Υ2-Υ1)  /  (Χ2-Χ1) 

0=Υ2-Μ*Χ2 

όπου  ΧΙ,ΥΙ  και  Χ2,Υ2  είναι  οι  συντεταγμένες  δύο  σημείων  της  γραμμής.  Οι 
κανόνες  αυτοί  δεν  βοηθούν  όταν  η  γραμμή  είναι  κάθετη,  γι’  αυτό  το  πρό¬ 
γραμμα  χρησιμοποιεί  άλλη  μέθοδο  όταν  αντιμετωπίζει  τέτοια  περίπτωση. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Πρόγραμμα  -  Σκίαση  γραμμής 
20  ΜΟύΕ  1 

30  ΡΡΙΝΤ  "  ΣΚΙΑΣΗ  ΓΡΑΜΜΗΣ" 

40  ΡΡΙΝΤ: ΡΡΙΝΤ 

50  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΤΗΝ  ΕΝΤΟΛΗ  ΡΕΟΤ» 

60  ΡΡΙΝΤ  «ΓΙΑ  ΝΑ  ΔΕΙΞΕΙ  ΤΑ  ΑΠΟΤΕΛΕΣΜΑΤΑ  ΤΗΣ  ΣΚΙΑΣΗΣ  ΜΙΑΣ  ΓΡΑΜΜΗΣ» 
70  ΡΡΙΝΤ  «Η  ΕΝΤΥΠΩΣΗ  ΤΗΣ  ΣΚΙΑΣΗΣ  ΔΗΜΙΟΥΡΓΕΙΤΑΙ  ΜΕ  ΤΗΝ» 

80  ΡΡΙΝΤ  «ΤΟΠΟΘΕΤΗΣΗ  ΜΙΑΣ  ΣΕΙΡΑΣ  ΣΗΜΕΙΩΝ  ΚΑΤΑ  ΜΗΚΟΣ  ΤΗΣ 
90  ΡΡΙΝΤ  « ΓΡΑΜΜΗΣ.Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΗΜΕΙΩΝ  ΚΑΘΟΡΙΖΕΙ» 

100  ΡΡΙΝΤ  «ΤΗ  ΦΩΤΕΙΝΟΤΗΤΑ  ΤΗΣ  ΓΡΑΜΜΗΣ» 

110  ΡΡΙΝΤ: ΡΡ ΙΝΙ 

120  ΡΡΙΝΤ  «Η  ΓΡΑΜΜΗ  ΣΧΕΔΙΑΖΕΤΑΙ  ΜΕ  ΤΟ  ΜΟΟΕ  2,  ΔΗΛΑΔΗ  ΜΟΝΟ» 

130  ΡΡΙΝΤ  «ΜΕ  ΔΥΟ  ΧΡΩΜΑΤΑ»:  ΡΚΙΝΤ 

140  ΡΡΙΝΤ  «Η  ΓΡΑΜΜΗ  ΕΧΕΙ  ΓΙΑ  ΑΚΡΑ  ΤΑ  ΣΗΜΕΙΑ» 

150  ΡΡΙΝΤ  «XI,  Υ1  και  Χ2,  Υ2,  ΜΕ  ΜΙΑ  ΣΤΑΘΕΡΑ» 

160  ΡΡΙΝΤ  «ΦΩΤΕΙΝΟΊ ΗΤΑΣ  ΜΕΤΑΞΥ  .05  και  .9.» 

170  ΡΡΙΝΤ 

180  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΟ  ΙΙΡΩΤΟ  ΑΚΡΟ»,  XI,  Υ1 
190  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΟ  ΔΕΥΤΕΡΟ  ΑΚΡΟ»,  Χ2,  Υ2 
200  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΣΤΑΘΕΡΑ  ΦΩΤΕΪΝΟΤΗΤΑΣ»,  I 
210  ΜΟΟΕ  2:Β0Ρ0ΕΡ  9 
220  605118  1000 
230  ΕΝ0 

1000  ΡΕΜ  ΥΠΟΡΟΥΤΙΝΑ  ΣΧΕΔΙΑΣΜΟΥ  ΤΗΣ  ΓΡΑΜΜΗΣ 
1010  ΡΕΜ  ΙΝΡυΤ$  Χ1,Χ2,Υ1,Υ2,Ι 

1020  ΡΕΜ  ΧΡΗΣΙΜΟΠΟΙΟΥΜΕΝΟΙ  ΟΡΟΙ  ΓΙΑ  ΤΑ  ΔΕΔΟΜΕΝΑ: 
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1030  ΒΕΜ  Μ-  ΚΛΙΣΗ 

1040  ΒΕΜ  Ο-ΣΗΜΕΙΟ  ΤΟΜΗΣ  ΜΕ  ΤΟ  Υ  -  ΑΞΟΝΑ 

1050  ΒΕΜ  άίίΙ-μήκος  της  γραμμής 

1060  ΒΕΜ  άοΐδ  -  αριθμός  σημείων 

1070  ΒΕΜ  άχ  -  απόσταση  δύο  σημείων 

1080  ΒΕΜ  (<  -  μετρητής 

1090  : 

1100  ΒΕΜ  Έλεγχος  δεδομένων 

1110  ΙΕ  Χ1<0  0Β  Χ1>640  ΤΗΕΝ  ΡΒΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  XI»:  ΚΕΤυΚΝ 

1120  ΙΕ  Χ2<0  ΟΒ  Χ2>640  ΤΗΕΝ  ΡΒΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Χ2»:  ΚΕΤυΚΝ 

1130  ΙΕ  Υ1<0  ΟΒ  Υ  1>400  ΤΗΕΝ  ΡΒΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  ΥΤ:  ΚΕΤυΚΝ 

1140  ΙΕ  Υ2<0  ΟΒ  Υ2>400  ΤΗΕΝ  ΡΒΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Υ2»:  ΚΕΤυΚΝ 

1150  ΙΕ  Χ1=Χ2  ΤΗΕΝ  60Τ0  1500 
1160  Μ=( Υ2-Υ1  )/(Χ2-Χΐ) 

1170  0 = Υ 1 — Μ*Χ 1 

1180  ΰΐ5ΐ=30Β((Χ1-Χ2)Α2+(Υ2-Υΐ)Α2) 

1190  άοΐ5=ϋϊ$ΐ*Ι 
1200  ύχ=(Χ2-Χΐ )/ΰοΐ$ 

1210  ΕΟΒ  Β=1  ΤΟ  άοΐ$ 

1220  3  =Χ  1+Κ*ε1χ 

1230  ΡΕΟΤ  ],Μ*)+0 
1240  ΝΕΧΤ  Β 
1250  ΒΕΤΙΙΒΝ 
1500  ΒΕΜ  Κάθετη  γραμμή 
1510  ε)=ΑΒ5(Υ2-Υ1) 

1520  Ν=ά*Ι 

1530  ΙΕ  Υ2<Υ1  ΤΗΕΝ  Τ=Υ2: Υ2=Υ1:Υ1=Τ 

1540  0Υ=( Υ2-Υ1  )/Ν 

1550  ΕΟΒ  Β=1  ΤΟ  Ν 

1560  ]=Υ1+Β*ΘΥ 

1570  ΡΙΟΤ  XI,) 

1580  ΝΕΧΤ  Β 
1590  ΒΕΤυΒΝ 
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Π43  ΜΕΤΑΤΟΠΙΣΗ  ΕΥ Θ ΥΓΡΑΜΜΟ Υ 
ΤΜΗΜΑΤΟΣ 


Για  να  μετατοπίσουμε  ή  να  κινήσουμε  ένα  ευθύγραμμο  τμήμα,  πρέπει  να  υ¬ 
πολογίσουμε  πρώτα  τα  νέα  του  άκρα  και  μετά  να  το  σχεδιάσουμε. 

Αν  μπορούμε  να  κινήσουμε  ένα  ευθύγραμμο  τμήμα,  τότε  μπορούμε  και  να  με¬ 
τακινήσουμε  γραμμικά  σχήματα  επάνω  στην  οθόνη. 

Γ ια  να  μετακινήσουμε  ένα  ευθύγραμμο  τμήμα  πρέπει  να  γνωρίζουμε  τα  άκρα 
του  αρχικού  τμήματος  και  την  απόσταση  που  αυτό  θα  μετακινηθεί  κατά  μή¬ 
κος  των  διευθύνσεων  X  και  Υ  μαζί. 


Το  πρόγραμμα  εφαρμόζει  τη  ρουτίνα  σκίασης  που  αναπτύχθηκε  στο  προη¬ 
γούμενο  πρόγραμμα  για  να  ξανασχεδιάσει  το  ευθύγραμμο  τμήμα. 


ΕΝΤΟΛΕΣ 


ν 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 

250  ΙΝΡϋί  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΠΡΩΤΟΥ  ΑΚΡΟΥ  ΤΟΥ  ΕΥΘΥΓΡΑΜ 
ΜΟΥ  ΤΜΗΜΑΤΟΣ»,  XI,  Υ1 

260  ΙΝρυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΔΕΥΤΕΡΟΥ  ΑΚΡΟΥ  ΤΟΥ  ΕΥΘΥΓΡΑ 
ΜΜΟΥ  ΤΜΗΜΑΤΟΣ»,  Χ2,  Υ2 


ΡΕΜ  Πρόγραμμα  -  Μετατόπιση  γραμμής 
Μ0&Ε  1 

ΡΡΙΝΤ  «ΜΕΤΑΤΟΠΙΣΗ  ΓΡΑΜΜΗΣ» 

ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΕΝΑ  ΑΠΛΟ» 
ΡΡΙΝΤ  «ΜΗΧΑΝΙΣΜΟ  ΓΙΑ  ΝΑ  ΜΕΤΑΒΑΛΛΕΙ  ΤΗ  ΘΕΣΗ» 

ΡΡΙΝΤ  «ΜΙΑΣ  ΓΡΑΜΜΗΣ.  ΕΑΝ  ΔΙΑΘΕΤΕΙΣ  ΜΙΑ  ΡΟΥΤΙΝΑ  ΓΙΑ» 
ΡΡΙΝΤ  «ΝΑ  ΜΕΤΑΤΟΠΙΖΕΙ  ΑΠΛΕΣ  ΓΡΑΜΜΕΣ  ΤΟΤΕ  ΘΑ  ΜΠΟΡΕΙΣ» 
ΡΡΙΝΤ  «ΝΑ  ΜΕΤΑΤΟΠΙΖΕΙΣ  ΚΑΤΑ  ΒΟΥΛΗΣΗ  ΟΛΟΚΛΗΡΑ» 

ΡΡΙΝΤ  «ΓΡΑΜΜΙΚΑ  ΣΧΕΔΙΑ  ΕΠΑΝΩ  ΣΤΗΝ  ΟΘΟΝΗ» 

ΡΡΙΝΤ 
ΡΡΙΝΤ 
ΡΡΤΝΤ 
ΡΡΙΝΤ 


«ΓΙΑ  ΝΑ  ΜΕΤΑΤΟΠΙΣΘΕΙ  ΜΙΑ  ΓΡΑΜΜΗ  ΠΡΕΠΕΙ  ΝΑ  ΓΝΩΡΙΖΟΥΜΕ» 
«ΤΗΝ  ΑΡΧΙΚΗ  ΓΗΣ  ΘΕΣΗ  ΚΑΙ  ΤΗΝ  ΑΠΟΣΤΑΣΗ  ΠΟΥ  ΘΑ» 
«ΜΕΤΑΚΙΝΗΘΕΙ  ΚΑΤΑ  ΤΙΣΔΙΕΥΘΥΝΣΕΙΣ  ΤΩΝ  ΑΞΟΝΩΝ  X  ΚΑΙ  Υ» 
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270  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΣΤΑΘΕΡΑ  ΦΩΤΕΙΝΟΤΗΤΑΣ»,  I 

280  ΙΝΡϋΤ «ΟΡΙΣΕ  ΤΗ  ΜΕΤΑΤΟΠΙΣΗ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  ΤΟΥ  X  ΑΞΟΝΑ»,  ΚΙ 

290  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΜΕΤΑΤΟΠΙΣΗ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  ΤΟΥ  Υ  ΑΞΟΝΑ»,  Κ2 

300  Μ0ΘΕ  2:Β0ΡΡΕΡ  9 

310  6051ΙΒ  1000 

320  δΟδυΒ  2000 

330  ΕΝΙ) 

1000  ΡΕΜ  ΥΠΟΡΟΥΤΙΝΑ  ΣΧΕΔΙΑΣΜΟΥ  ΕΥΘΥΓΡΑΜΜΟΥ  ΤΜΗΜΑΤΟΣ 

1010  ΡΕΜ  ΜΕΤΑΒΛΗΤΕΣ  XI,  Χ2,  Υ1,  Υ2,  I 

1020  ΡΕΜ  ΧΡΗΣΙΜΟΠΟΙΟΥΜΕΝΟΙ  ΟΡΟΙ  ΓΙΑ  ΤΑ  ΔΕΔΟΜΕΝΑ: 

1030  ΡΕΜ  Μ-  ΚΛΙΣΗ 

1040  ΡΕΜ  Ο-ΣΗΜΕΙΟ  ΤΟΜΗΣ  ΜΕ  ΤΟΝ  Υ-ΑΞΟΝΑ 

1050  ΡΕΜ  άΐδΐ,  ά-μήκος  ευθύγραμμου  τμήματος 

1060  ΡΕΜ  άοΐδ,  Ν  -  αριθμός  σημείων 

1070  ΡΕΜ  όχ,  ΟΥ  -  απόσταση  δύο  σημείων. 

1080  ΡΕΜ  X -μετρητής 

1090  ΡΕΜ  .  Τ,  '}  -  Προσωρινές  μεταβλητές 

1100  ΡΕΜ  Έλεγχος  δεδομένων 

1110  ΙΡ  Χ1<0  0Ρ  Χ1>640  ΤΗΕΝ  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  X]»:  ΚΕΤυΚΝ 

1120  ΙΡ  Χ2<0  0Ρ  Χ2>640  ΤΗΕΝ  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Χ2»;  ΚΕΤυΚΝ 

1130  ΙΡ  Υ1<0  0Ρ  Υ1>400  ΤΗΕΝ  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  ΥΙ»:  ΚΕΤυΚΝ 

1140  ΙΡ  Υ2<0  0Ρ  Υ2>400  ΤΗΕΝ  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Υ2»:  ΚΕΤυΚΝ 

1150  ΙΡ  Χ1=Χ2  ΤΗΕΝ  60Τ0  1500 
1160  Μ=( Υ2-Υ1 )/(Χ2-Χΐ ) 

1170  0 = Υ 1 — Μ *Χ 1 

1180  ε)Ϊ5ΐ=δ(3Ρ((Χ1“Χ2)Α2+(Υ2-Υΐ)Α2) 

1190  (1οΙ$=εΙϊεΐ*Ι 
1200  ε)χ=(Χ2-Χΐ  )/<1οΐ$ 

1210  Ρ0Ρ  Χ  =  1  ΤΟ  άοί$ 

1220  ί=Χ1+Κ*«ίχ 
1230  ΡΕ0Τ 
1240  ΝΕΧΤ  X 
1250  ΡΕΤυΚΝ 

1500  ΡΕΜ  Κάθετο  ευθύγραμμο  τμήμα 
1510  ά=ΑΒ$(Υ2-Υΐ> 

1520  Ν=ς1*Ι 

1530  ΙΡ  Υ 2<Υ 1  ΤΗΕΝ  Τ=Υ2: Υ2=Υ1: Υΐ=Τ 

1540  ΘΥ=( Υ2-Υ1 )/Ν 

1550  ΡΟΡ  Ι<=1  ΤΟ  Ν 

1560  ι=Υ1+Χ*ΘΥ 

1570  ΡΕ0Τ  Χΐ,ί 

1580  ΝΕΧΤ  X 

1590  ΡΕΤυΡΝ 

2000  ΡΕΜ  Ρουτίνα  μετατόπισης  ευθύγραμμου  τμήματος 
2010  ΡΕΜ  Χρησιμοποιούμενεε  μεταβλητές» 

2020  ΡΕΜ  XI,  Υ1.  Χ2,  Υ2  άκρα 

2030  ΡΕΜ  ΚΙ,  Κ2  μετατοπίσεις 

2040  : 

2050  Χ1=Χ1+Κ1:Υ1=Υ1τΚ2 
2060  Χ2=Χ2+Κ1: Υ2=Υ2+Κ2 
2070  6051ΙΒ  1000 
2080  ΡΕΤυΡΝ 
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Π44  ΠΑΡΑΛΛΗΛΟΓΡΑΜΟ 


Με  τη  βοήθεια  των  ρουτινών  που  αναπτύχθηκαν  στα  προηγούμενα  προγράμ¬ 
ματα  μπορούμε  να  γραμμοσκιάσουμε  ένα  παραλληλόγραμμο. 


Για  το  σχεδιασμό  χρησιμοποιούμε  ένα  διάνυσμα  (ευθύγραμμο  τμήμα)  που 
μετακινείται  σε  νέες  θέσεις,  σχηματίζοντας  έτσι  πολλά  ενδιάμεσα  ευθύγραμ- 
μα  τμήματα  μεταξύ  της  αρχικής  και  της  τελικής  του  θέσης.  Όπως  και  πριν 
χρησιμοποιούμε  τη  ρουτίνα  σκίασης  για  να  δώσουμε  τη  φωτεινότητα  που 
θέλουμε. 


ΕΝΤΟΛΕΣ 


ν 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Παραλληλόγραμο 
110  ΜΟβΕ  1 

120  ΡΚΙΝΤ  "  ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ" 

130  ΡΚΙΝΤ 

140  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΙΣ  ΡΟΥΤΙΝΕΣ  ΠΟΥ» 

150  ΡΚΙΝΤ  «ΑΝΑΠΤΥΧΘΗΚΑΝ  ΣΤΑ  ΠΡΟΗΓΟΥΜΕΝΑ  ΠΡΟΓΡΑΜΜΑΤΑ  ΓΙΑ» 

160  ΡΚΙΝΤ  «ΝΑ  ΓΡΑΜΜΟΣΚΙΑΣΕΙ  ΕΝΑ.ΠΑΡΑΛΛΗΛΟΓΡΑΜΟ.  ΟΠΩΣ  » 

170  ΡΚΙΝΤ  «ΑΝΑΦΕΡΕΤΑΙ  ΚΑΙ  ΣΤΗΝ  ΕΙΣΑΓΩΓΗ 'ΓΟΥ  ΠΡΟΓΡΑΜΜΑΤΟΣ  ■> 

180  ΡΚΙΝΤ  «  ΜΠΟΡΟΥΜΕ  ΤΩΡΑ  ΝΑ  ΚΑΘΟΡΙΣΟΥΜΕ  ΤΗ  ΦΩΤΕΙΝΟΤΗΤΑ  ΣΕ  » 

190  ΡΚΙΝΤ  «  ΔΥΟ  ΔΙΕΥΘΥΝΣΕΙΣ  ΩΣΤΕ  ΝΑ  ΔΗΜΙΟΥΡΓΗΣΟΥΜΕ  ΜΕΤΑΒΛΗΤΗ  » 

: ΡΚΙΝΤ  «ΣΚΙΑΣΗ»;  ΡΚΙΝΤ 

200  ΡΚΙΝΤ  «ΓΙΑ  ΝΑ  ΣΧΕΔΙΑΣΟΥΜΕ  ΤΟ  ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ  ΠΡΕΠΕΙ  ΝΑ» 

210  ΡΚΙΝΤ  «ΓΝΩΡΙΖΟΥΜΕ  ΤΗ  ΘΕΣΗ  ΤΟΥ  ΔΙΑΝΥΣΜΑΤΟΣ  -  ΓΕΝΕΤΕΙΡΑΣ  ΚΑΙ» 
220  ΡΚΙΝΤ  «ΤΗΝ  ΑΠΟΣΤΑΣΗ  ΠΟΥ  ΑΥΤΟ  ΘΑ  ΜΕΤΑΚΙΝΗΘΕΙ  ΚΑΤΑ» 

230  ΡΚΙΝΤ  «ΤΙΣ  ΔΙΕΥΘΥΝΣΕΙΣ  ΤΩΝ  ΑΞΟΝΩΝ  X  ΚΑΙ  Υ» 

240  ΡΚΙΝΤ 

250  ΙΝΡΙΙΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΠΡΩΤΟΥ  ΑΚΡΟΥ  ΤΟΥ  ΔΙΑΝΥΣΜΑ 
ΤΟΣ»,  Ρ1,  (}Ι 

260  ΙΝΡΙΙΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΔΕΥΤΕΡΟΥ  ΑΚΡΟΥ  ΤΟΥ  ΔΙΑΝΥ 
ΣΜΑΤΟΣ»,  Ρ2,  <22 

270  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΣΤΑΘΕΡΑ  ΦΩΤΕΙΝΟΤΗΤΑΣ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  X».  II 

275  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΣΤΑΘΕΡΑ  ΦΩΤΕΙΝΟΤΗΤΑΣ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  Υ»  12 

280  ΙΝΡΙΙΤ  «ΟΡΙΣΕ  ΤΗ  ΜΕΤΑΤΟΠΙΣΗ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  X»,  ΟΙ 

290  ΙΝΡυΤ  «ΟΡΙΣΕ  ΤΗ  ΜΕΤΑΤΟΠΙΣΗ  ΚΑΤΑ  ΤΗ  ΔΙΕΥΘΥΝΣΗ  Υ»,  02 

300  ΜΟϋΕ  2:Β0ΚΙ)ΕΚ  9 
310  6051ΙΒ  3000 


105 


320  ΕΝΟ 

1000  ΚΕΜ  ΥΠΟΡΟΥΤΙΝΑ  ΣΧΕΔΙΑΣΜΟΥ  ΕΥΘΥΓΡΑΜΜΟΥ  ΤΜΗΜΑΤΟΣ 
1010  ΚΕΜ  ΜΕΤΑΒΛΗΤΕΣ  XI,  Χ2,  Υ1,  Υ2,  I 

1020  ΚΕΜ  ΧΡΗΣΙΜΟΠΟΙΟΥΜΕΝΟΙ  ΣΥΜΒΟΛΙΣΜΟΙ  ΔΕΔΟΜΕΝΩΝ: 

1030  ΚΕΜ  Μ-ΚΛΙΣΗ 

1040  ΚΕΜ  Ο-ΣΗΜΕΙΟ  ΤΟΜΗΣ  ΜΕ  ΤΟΝ  Υ-ΑΞΟΝΑ 

1050  ΚΕΜ  ίί*1,  ά-μήκος  ευθύγραμμου  τμήματος 

1060  ΚΕΜ  άοΐδ,  Ν-αριθμός  σημείων 

1070  ΚΕΜ  <1*,  ΟΥ-απόσταση  μεταξύ  δύο  σημείων 

1080  ΚΕΜ  Ιί-μετρητής 

1090  ΚΕΜ  Τ,  ]  -  Προσωρινές  μεταβλητές 

1100  ΚΕΜ  Έλεγχος  δεδομένων 

1110  ΙΕ  Χ1<0  0Κ  Χ1>640  ΤΗΕΝ  ΡΚΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  XI. >:  ΚΕΤυΚΝ 

1120  ΙΡ  Χ2<0  0Κ  Χ2>640  ΤΗΕΝ  ΡΚΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Χ2»:  ΚΕΤυΚΝ 

1130  ΙΡ  ΥΚ0  ΟΚ  Υ1>400  ΤΗΕΝ  ΡΚΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Υ1»:  ΚΕΤυΚΝ 

1140  ΙΡ  Υ2<0  ΟΚ  Υ2>400  ΤΗΕΝ  ΡΚΙΝΤ  «ΛΑΘΟΣ  ΣΤΟ  Υ2·>:  ΚΕΤΕΓΚΝ 

1150  ΙΡ  Χ1=Χ2  ΤΗΕΝ  60Τ0  1500 
1160  Μ=( Υ2-Υ1 )/ (Χ2-Χ1) 

1170  0=Υ1-Μ*Χ1 

1180  άϊδί=50Κ((Χ1-Χ2)Α2+(Υ2-Υΐ)Α2) 

1190  όοΐδ=£ϋδ1:*ΐ:ΐΡ  άοΐδ=0  ΤΗΕΝ  άοΐδ=1 

1200  όχ=(Χ2-Χΐ)/όοΐ5 

1210  ΡΟΚ  Κ=1  ΤΟ  ΰοΐδ 

1220  ί=Χ1+Ι<*εΙχ 

1230  ΡΕΟΤ  ί ,Μ*]+0 

1240  ΝΕΧΤ  Ι< 

1250  ΚΕΤυΚΝ 

1500  ΚΕΜ  Κάθετο  ευθύγραμμο  τμήμα 
1510  ϋ=ΑΒ5( Υ2-Υ1 ) 

1520  Ν=ά*Ι 

1530  ΙΡ  Υ2<Υ1  ΤΗΕΝ  Τ=Υ2: Υ2=Υ1:Υ1=Τ 

1540  ΘΥ=< Υ2-Υ1 )/Ν 

1550  ΡΟΚ  Χ=1  ΤΟ  Ν 

1560  ί  =Υ1+Κ*ΩΥ 

1570  ΡΕΟΤ  XI, ϊ 

1580  ΝΕΧΤ  Κ 

1590  ΚΕΤυΚΝ 

2000  ΚΕΜ  Ρουτίνα  μετατόπισης  ευθύγραμμου  τμήματος 
2010  ΚΕΜ  Χρησιμοποιούμενες  μεταβλητές: 

2020  ΚΕΜ  XI,  Υ1,  Χ2,  Υ2  άκρα 

2030  ΚΕΜ  ΚΙ,  Κ2  μετατοπίσεις 

2040  : 

2050  Χ1=Χ1+Κ1:Υ1=Υ1+Κ2 
2060  Χ2=Χ2+Κ1: Υ2=Υ2+Κ2 
2070  6051ΙΒ  1000 
2080  ΚΕΤυΚΝ 

3000  ΚΕΜ  Ρουτίνα  παραλληλόγραμμου 

3010  ΚΕΜ  Ρουτίνα  σχεδιασμού  παραλληλόγραμμου 

3020  ΚΕΜ  Χρησιμοποιούμενες  μεταβλητές: 

3030  ΚΕΜ 

3100  Χ1=Ρ1:Χ2=Ρ2: Υ1=01: Υ2=02 

3110  605(18  1000 

3120  Ιθη9ΐΗ=50Κ( 0 1*0 1+02*02) 

3130  I  ίηθδ=Ιβη9ΐ:Η*Ι2 

3140  (101=01/1  ϊηβδ 

3150  <^02=02/ 1  ϊπθδ 

3160  ΡΟΚ  ί=1  ΤΟ  Ιϊηθδ 

3170  Χ1=Ρ1:Χ2=Ρ2: Υΐ=01: Υ2=02:Ι=Ι1 

3180  Κΐ=Ε*ά01:Κ2=ί*ϋθ2 

3190  6051Β  2000 

3200  ΝΕΧΤ  Ι_ 

3210  ΚΕΤυΚΝ 
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Π45  ΚΑΤΑΧΩΡΗΣΗ  ΣΧΗΜΑΤΟΣ 


Όταν  ασχολείται  κανείς  με  γραμμικά  σχήματα  χρειάζεται  να  γνωρίζει  μόνο 
τα  άκρα  κάθε  ευθύγραμμου  τμήματος  και  τη  μέθοδο  που  χρησιμοποιήθηκε 
για  το  σχεδιασμό  των  τμημάτων.  Τα  άκρα  των  τμημάτων  μπορούν  να  κατα- 
χωρηθούν  σε  ένα  πίνακα  δύο  διαστάσεων  και  υπάρχουν  πολλές  μέθοδοι  για 
να  δημιουργηθεί  ένα  ευθύγραμμο  τμήμα. 

Θα  βοηθούσε  να  έχεις  ένα  πρόχειρο  σχέδιο  του  σχήματός  σου  στα  χέρια 
σου,  πριν  τρέξεις  το  πρόγραμμα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα. και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες  και  σχεδίασε  το  σχήμα  σου  εισάγοντας  ένα  ευθύ¬ 
γραμμο  τμήμα  κάθε  φορά. 


100  ΚΕΜ  Πρόγραμμα  -  Καταχώρηση  σχήματος 
110  βΕΡ  ΡΝεΙιβςΚχ(Χ)  =  (Χ>0)  ΑΝβ  (Χ<640) 

120  βΕΡ  ΡΝοΡιβοΧγί  Υ)  =  (  Υ>0)  ΑΝβ  (Υ<400) 

130  ΜΟβΕ  1 

140  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

150  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  ΣΧΕΔΙΑΖΕΙ» 
160  ΡΚΙΝΤ  «ΣΧΗΜΑΤΑΣΤΟ  ΜΟΌΕ  0.  ΤΟ  ΣΧΗΜΑ  ΚΑΤΑΧΩΡΕΙΤΑΙ  ΣΑΝ  ΕΝΑΣ» 
170  ΡΚΙΝΤ  «ΠΙΝΑΚΑΣ  ΣΗΜΕΙΩΝ,  ΤΑ  ΟΠΟΙΑ  ΑΝ  ΕΝΩΘΟΥΝ  ΜΑΖΙ» 

180  ΡΚΙΝΤ  «  ΣΧΗΜΑΤΙΖΟΥΝ  ΕΝΑ  ΓΡΑΜΜΙΚΟ  ΣΧΕΔΙΟ.  Η  ΕΙΚΟΝΑ» 

190  ΡΚΙΝΤ  «ΦΥΛΑΓΕΤΑΙ  ΜΕ  ΤΗ  ΜΟΡΦΗ  ΣΕΙΡΑΣ  ΤΩΝ  ΑΚΡΩΝ» 

200  ΡΚΙΝΤ  «ΤΩΝ  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ.  Ο  ΑΡΙΘΜΟΣ  ΤΩΝ» 

210  ΡΚΙΝΤ  «  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ  ΤΟΥ  ΣΧΗΜΑΤΟΣ  ΑΠΟΤΕΛΕΙ» 

220  ΡΚΙΝΤ  «ΤΟ  ΠΡΩΤΟ  ΣΤΟΙΧΕΙΟ  ΤΟΥ  ΠΙΝΑΚΑ» 

230  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ: 

240  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΟ  ΣΧΗΜΑ» 
250  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$='"'  ΤΗΕΝ  250 
260  : 


270  015 

280  ΡΚΙΝΤ: ΡΚΙΝΤ 

290  ΙΝΡϋΤ  «ΑΡΙΘΜΟΣ  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ  ΣΤΟ  ΣΧΗΜΑ=»,  η 
300  ΒΙΜ  5ίΐ3ρε(2,2*η) 

310  ΚΕΜ  Εισαγωγή  σχήματος 
320  Ρ0Κ  ι=1  ΤΟ  2*π  5ΤΕΡ  2 
330  ίί39=0 

340  ΜΗ 1 1_Ε  Π39=0 
350  015 

360  ΡΚΙΝΤ  «ΔΩΣΕ  ΤΩΡΑ  ΤΑ  ΑΚΡΑ  ΤΟΥ  ΤΜΗΜΑΤΟΣ  ΜΕ  ΑΡΙΘΜΟ»: 

ΡΚΙΝΤ  ( ϊ+1)/2 
370  Ι.ΟΟΑΤΕ  1,6 

380  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΕΝΟΣ  ΑΚΡΟΥ  (X,  Υ)», 


390 

400 

410 

420 


5ί>3ρθ(1,  ϊ  ),5ίΐ3ρβ(2,  ϊ  ) 

ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΑΛΛΟΥ  ΑΚΡΟΥ» 
δΡβρθί 1, ί  +  1 ) ,$Ρ3ρβ(2, ί  +  1 ) 
ί  ΐ39-ΡΝς(ιβϋΙ<χ(  503ρβ(  1,  ί ) ) 

ΑΝβ  ΡΝςΡ6αΧχ(εΡ3ρθ(1,ΐ+1)) 
ί  Ι39=ί  ί39*ί  ΡΝςΡΐθτΙ<γ(5ΐΐ3ρθ(2,ί)) 

ΑΝβ  ΡΝε1ΐθεΚγ(5ΐΐ3ρθ(2,ϊ  +  Τ))) 

ΙΡ  Π39=0  ΤΗΕΝ  ΙΟΟΑΤΕ  1,20:ΡΚΙΝΤ 
Ε15Ε  450 


«ΛΑΘΟΣ»  +  ΟΗΚ.Ϊ  (7) 
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430  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΠΑΝΟΡΘΩΣΕΙΣ.. 

440  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=,,Μ  ΤΗΕΝ  440 
450  ΗΕΝΡ 
460  ΝΕΧΤ  ϊ 

470  ΡΕΜ  Σχεδιασμός  σχήματος 

480  ΕΟΟΑΤΕ  1,20:'  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ» 
:  ΡΚΙΝΤ  ΔΕΙΣ  ΤΟ  ΣΧΗΜΑ» 

490  ζ$=ΙΝΚ£Υ$:ΙΡ  ζ$="Μ  ΤΗΕΝ  490 
500  ΜΟΡΕ  0 

510  ΡΟΚ  ΐ=1  ΤΟ  2*π  5ΤΕΡ  2 

520  ΜΟνΕ  5ΐΐ3ρθ(1,ϊ),δή3ρ6(2,ϊ) 

530  ΡΚΑΗ  5Ρ3ρε(1/·ϊ  +  1)/·5ή3ρε(2,ϊ  +  1) 

540  ΝΕΧΤ  ΐ 

550  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=”"  ΤΗΕΝ  550 
560  ΜΟΡΕ  1 
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Π46  ΠΕΡΙΣΤΡΟΦΗ 


Αυτό  το  πρόγραμμα  εφαρμόζει  τη  ρουτίνα  καταχώρησης  σχήματος  για  να 
κρατήσει  ένα  σχήμα  που  ορίζει  ο  χρήστης.  Στη  συνέχεια  το  σχήμα  περι¬ 
στρέφεται  διαγράφοντας  γωνία  ΡΙ/2  ακτίνια,  η  οθόνη  «καθαρίζει»  και  το 
σχήμα  παρουσιάζεται  στη  νέα  του  θέση. 

Το  πρόγραμμα  δείχνει  τα  πλεονεκτήματα  της  χρησιμοποίησης  πινάκων  για 
την  επεξεργασία  σχημάτων.  Το  πρόβλημα  της  περιστροφής  ανάγεται  σε  ε¬ 
κείνο  του  πολλαπλασιασμού  πινάκων. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τις  συντεταγμένες  όταν  σου  ζητηθεί. 

Πάτησε  οποιδήποτε  πλήκτρο  για  να  περιστραφεί  το  σχήμα. 


100  ΒΕΜ  Πρόγραμμα  -  Περιστροφή 

110  ΟΕΡ  ΡΝοίιβεΙ<χ(Χ)  =  {Χ>-320)  ΑΝΡ  <Χ<320) 

120  ΟΕΡ  ΡΝοΗβεΚχί Υ)=(Υ>-200)  ΑΝΟ  (Υ<200) 

130  ΜΟΡΕ  1 

140  6051ΙΒ  1000: ΒΕΜ  Εισαγωγή  σχήματος 

145  Μ00Ε  0: 0ΒΙ6ΙΝ  320,200 

150  6051ΙΒ  2000: ΒΕΜ  Σχεδιασμός  σχήματος 

1.60  1.00 ΑΤΕ  1,?0:ΡΒΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΠΕΡΙΣΤΡΑΦΕΙ» 
:  ΡΒΙΝΤ «ΤΟ  ΣΧΗΜΑ» 

170  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=,··,  ΤΗΕΝ  170 
180  6051)8  3000: ΒΕΜ  Περιστροφή  σχήματος 
190  6051ΙΒ  2000:  ΡΕΜ  Σχεδιασμός  σχήματος 
200  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$='"'  ΤΗΕΝ  200 
210  ΕΝΰ 
980  : 

990  ΒΕΜ  Υπορούτίνα  καταχώρησης  σχήματος 

1000  αδ 

1010  ΡΒΙΝΤ:  ΡΒΙΝΤ 

1020  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ  ΤΟΥ  ΣΧΗΜΑΤΟΣ=»  η 
1030  0ΙΜ  $)ΐ3ρβ(2,2*η) 

1040  ΒΕΜ  εισαγωγή  σχήματος 
1050  Ρ0Β  ΐ=1  ΤΟ  2*η  5ΤΕΡ  2 
1060  Τ  1 39=0 
1070  ΜΗΙΕΕ  1139=0 
1080  0Ε5 

1090  ΡΒΙΝΤ  «ΔΩΣΕ  ΤΩΡΑ  ΤΑ  ΑΚΡΑ  ΤΟΥ  ΤΜΗΜΑΤΟΣ  ΜΕ  ΑΡΙΘΜΟ» 
ΡΒΙΝΤ  ( ί+1 )/2 
1100  ΙΟΟΑΤΕ  1,6 

1110  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΕΝΟΣ  ΑΚΡΟΥ  (X,  Υ)», 

5ίΐ3ρε(1,ϊ),5)ΐ3ρθ(2,  ϊ) 

1120  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΑΛΛΟΥ  ΑΚΡΟΥ», 

δίίβρθί  1,1  +  1  Ι,δΙίθρθ  (2,1  +  1) 

1130  Ιΐ39=ΡΝοίιβεΙ(χ(5ίΐ3ρε(1,ΐ)) 

ΑΝΰ  ΡΝείΐ6θΕχ(5ΐΐ3ρθ(1,ι  +  1)) 

1140  I  ί39=ί  Ιβς+ίΡΝεΗθοΚχίεΙίΒρθίΖ,ί ) ) 

ΑΝΟ  ΡΝοίιβοΙςχ(5)ΐ3ρ6(2,ι  +  1))) 

1150  ΙΡ  11.39=0  ΤΗΕΝ  1.00ΑΤΕ  1,20:ΡΒΙΝΤ  «ΛΑΘΟΣ»  +  ΟΗΚ  $  (7) 
ΕΕ5Ε  1180 
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1160  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΠΑΝΟΡΘΩΣΕΙΣ» 

1170  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=,'"  ΤΗΕΝ  1170 

1180  ΜΕΝΟ 

1190  ΝΕΧΤ  ϊ 

1200  ΚΕΤυΚΝ 

1970  : 

1980  : 

1990  ΚΕΜ  Ρουτίνα  σχεδιασμού  σχήματος 

2000  Μονέ  0,& 

2010  Ε0Κ  ϊ=1  ΤΟ  2*Π  5ΤΕΡ  2 
2020  ΜΟνΕ  5(ΐ3ρβ(1,ί),8ΐΐ3ρθ(2,ϊ) 

2030  ΡΚΑΜ  5Ρ3ρβ(  1,ί  +  1)>-3ΐΐ3ρθ(2,ΐ  +  1) 

2040  ΝΕΧΤ  ι 
2050  ΚΕΤυΚΝ 

2970  ΚΕΜ  Ρουτίνα  περιστροφής 
2980  ΚΕΜ  Παλιό  σχήμα  στο  σχήμα  (χ,χ) 

2990  ΚΕΜ  Νέο  σχήμα  στο  η  σχήμα  (χ,χ) 

3000  Ρ0Κ  ϊ=1  ΤΟ  2*η 
3010  ΐ  =  5(ΐ3ρθ( ϊ ) 

3015  εΙΐ3ρε(1,ϊ)=-5ΐΐ3ρε(2,1) 

3020  5ίΐ3ρε(2,  ϊ  )=ί 

3030  ΝΕΧΤ  ι 
3040  ΚΕΤυΚΝ 
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Π47  ΜΕΤΑΣΧΗΜΑΤΙΣΜΟΙ 


Αυτό  το  πρόγραμμα  χρησιμοποιεί  τη  ρουτίνα  καταχώρησης  σχήματος  για 
να  δώσει  τη  δυνατότητα  στον  χρήστη  να  εισάγει  ένα  γραμμικό  σχήμα  το  ο¬ 
ποίο  στη  συνέχεια  εμφανίζεται  στην  οθόνη. 

Ο  χρήστης  κατόπιν  μπορεί  να  χρησιμοποιήσει  το  πρόγραμμα  για  να  μετα¬ 
βάλλει,  με  ποικίλους  τρόπους,  τη  μορφή  του  σχήματος. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


Το  πρώτο  πράγμα  που  πρέπει  να  κάνεις,  είναι  να  εισάγεις  το  σχήμα  στον  υ¬ 
πολογιστή.  Μετά  από  αυτό  μπορείς  να  διαλέξεις  το  είδος  του  μετασχηματι¬ 
σμού  που  θα  εκτελέσει  το  πρόγραμμα,  από  τον  παρακάτω  πίνακα  επιλογών: 

I  -  Καμμιά  μεταβολή  X  -  Προβολή1  στον  άξονα  των  χ 

Η  -  Μισή  στροφή  Υ  -  Προβολή  στον  άξονα  των  γ 

(}  -  Στροφή  ενός  τετάρτου  Β  -  Στροφή  ενός  τετάρτου  προς  τα  πίσω 

Κ  -  Συμμετρικό 

Σημείωσε  ότι  αρκεί  το  πάτημα  ενός  πλήκτρου  μόνο. 


100  ΒΕΜ  Πρόγραμμα -Μετασχηματισμοί 

110  ΡΕΡ  ΡΝεΠθεΙ<χ(Χ)  =  (Χ>-320)  ΑΝϋ  (Χ<320) 

120  ΡΕΡ  ΡΝεΡίθεΚχί  Υ)  =  (  Υ>-200)  ΑΝϋ  (Υ<200) 

130  Μουε  ι 

140  ΟΟευΒ  1000: ΒΕΜ  Καταχώρηση  σχήματος 
145  Γ100Ε  2:0ΒΙ6ΙΝ  320,200 
150  6051ΙΒ  2000:  ΒΕΜ  Σχεδιασμός  σχήματος 
160  γ$="μ 

170  ΗΗΙΙΕ  γ$<>·’ζ"  ■ 

180  ΕΟΟΑΤΕ  1,25: 

ΡΚ1ΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΑΠΟ  ΤΑ  «ΙΚΗΧΟΥΒ»  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 
190  γ$=ΙΝΚΕΥ$: ΙΡ  γ$=""  ΤΗΕίν  190 
200  ΙΡ  Α50(γ$)>96  ΑΝΰ  Α$0(γ$)<123 
ΤΗΕΝ  γ$=0ΗΚ$(Α50(γ$)-32) 

210  γ=ΙΝ5ΤΚ("ΙΕΗΧΟΥΒ",γ$) 

220  ΙΡ  γ=0  ΤΗΕΝ  γ$="ζ":60Τ0  270 

230  ΟΝ  γ  6051ΙΒ 

5100,5200,5300,5400,5500,5600,5700 
240  6051ΙΒ  4000:  ΒΕΜ  Διαγραφή  σχήματος 

250  6051ΙΒ  3000:  ΒΕΜ  Υπολογισμός  νέου  σχήματος 

260  6051ΙΒ  2000:  ΡΕΜ  Σχεδιασμός  σχήματος 

270  ΝΕΝΙ) 

280  ΕΝΙ) 

980  : 

990  ΡΕΜ  Υπορουτίνα  καταχώρησης  σχήματος 
1000  0Ε5 

1010  ΡΡΙΝΤ:ΡΡΙΝΤ 

1020  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ  ΤΟΥ  ΣΧΗΜΑΤΟΣ^»,  η 
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1030  ϋΙΜ  δήβρε(2,2*η) 

10Α0  ΡΕΜ  εισαγωγή  σχήματος 
1050  ΡΟΡ  1=1  ΤΟ  2*Π  $ΤΕΡ  2 
1060  ί  1.39=0 
1070  ΜΗ  I Ι_Ε  ί  139-0 
1080  01$ 

1090  ΡΡΙΝΤ  «ΔΩΣΕ  ΤΩΡΑ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΩΝ  ΑΚΡΩΝ  ΤΟΥ» 

: ΡΡΙΝΤ  «ΕΥΘΥΓΡΑΜΜΟΥ  ΤΜΗΜΑΤΟΣ  ΜΕ  ΑΡΙΘΜΟ;» 

ΡΡΙΝΤ  ( 1  +  1  )/2 
1100  ΕΟΟΑΤΕ  1,6 

1110  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΕΝΟΣ  ΑΚΡΟΥ  (Χ,Υ)», 
5ή3ρε(1,1),5ή3ρε(2,1) 

1120  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΑΛΛΟΥ  ΑΚΡΟΥ», 

δήβρε(  1,  ί  +  1  ),$Ιΐ3ρέ(2,  ϊ  +  1 ) 

1130  I  ΐ39=ΡΝο(ΐθεΙ<χ(δή3ρθ(  1, 1 ) ) 

ΑΝ0  ΕΝεΙιεείΊχίδήθρεΠ,ϊ  +  Ι)) 

1140  Ρΐ39=ί  ΐ39*(ΡΝε!ιεο1<χ(δΙΐ3ρθ(2,1)) 

ΑΝΙ>  ΡΝοήθεΚγ{δΙΐ3ρθ(2,ϊ  +  1))) 

1150  ΙΡ  1139=0  ΤΗΕΝ  ΕΟΟΑΤΕ  1,20:ΡΚΙΝΤ  «ΛΑΘΟΣ»  +  ΟΗΚ  $  (7) 
ΕΙ_5Ε  1180 

1160  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΠΑΝΟΡΘΩΣΕΙΣ» 

1170  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=’"'  ΤΗΕΝ  1170 

1180  ΜΕΝί) 

1190  ΝΕΧΤ  ΐ 
1200  ΡΕΤυΡΝ 
1970  : 

1980  : 

1990  ΡΕΜ  Ρουτίνα  σχεδιασμού  σχήματος 
2000  ΜΟνΕ  0,0 

2010  ΡΟΡ  ϊ=1  ΤΟ  2*π  5ΤΕΡ  2 
2020  ΜΟνΕ  δή3ρε(1,ί),5ίΊ3ρε(2,ϊ) 

2030  ΟΡΑΗ  δή3ρε(1,ϊ+1),5ή3ρθ(2,ΐ+1),1 

2040  ΝΕΧΤ  ϊ 
2050  ΡΕΤΟΡΝ 

2970  ΡΕΜ  Υπορουτίνα  περιστροφής 
2980  ΡΕΜ  Παλιό  σχήμα  στο  σχήμα  (Χ,Υ) 

2990  ΡΕΜ  Νέο  σχήμα  στο  Λ  σχήμα  (χ,γ)  ) 

3000  ΡΟΡ  ϊ  =  1  ΤΟ  2*η 

3010  ΐ1=δ(ΐ3ρε(  Ι,ι ):  ΐ2=δίΐ3ρε(2,  ΐ ) 

3015  δΙ)3ρβ(  1,  ί  )=γ(1,1)*ϊ1+γ(1,2)*12 
3020  δ(ΐ3ρε(2,ϊ)=Γ(2,1)*ΐ1+Γ(2,2)*ΐ2 

3030  ΝΕΧΤ  ϊ 
3040  ΡΕΤυΡΝ 
3970  : 

3980  : 

3990  ΡΕΜ  Ρουτίνα  διαγραφής  σχήματός 
4000  ΡΟΡ  ι=1  ΤΟ  2*Π  5ΤΕΡ  2 
4020  ΜΟνΕ  δΐιβρεί  1,ϊ),δή3ρε(2,ι) 

4030  ΡΡΑΜ  δΙιβρεί  1,  ί  +  1),δή3ρε(2,  ϊ  +  1),0 
4040  ΝΕΧΤ  ί 
4050  ΡΕΤΟΡΝ 
4970  : 

4980  : 

4990  ΡΕΜ  Υπολογισμός  πίνακα  μετασχηματισμού 
5100  γ( 1,1 )=1:γ( 1,2) =0:γ( 2,1 )=0:γ( 2, 2)=1: ΡΕΤυΡΝ 
5200  γ ( 1, 1 )=0: γ( 1, 2)=1 : γ(2,1)=1:γ (2, 2)=0: ΡΕΤΟΡΝ 
5300  γ(1,1)=-1:γ(1,2)=0:γ(2,1)=0:γ(2,2)=-1: ΡΕΤυΡΝ 
5400  γ ( 1, 1)=1:γ(1,2)=0:γ (2,1 >=0:γ(2,2)=-1: ΡΕΤυΡΝ 
5500  γ ( 1, 1 )=0: γ ( 1,2)=-1 : γ (2, 1 )=1: γ (2,2) =0: ΡΕΤυΡΝ 
5600  γ ( 1, 1 )=-1: γ( 1,2) =0:γ (2,1 )=0:γ( 2,2 )=1: ΡΕΤυΡΝ 
5700  γ ( 1, 1)=0:γ(1,2)=1:γ (2,1 )=~1:γ(2,2)=0: ΡΕΤυΡΝ 
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Π48  ΓΕΝΙΚΟΣ  ΜΕΤΑΣΧΗΜΑΉΣΜΟΣ 


Με  αυτό  το  πρόγραμμα  ο  χρήστης  μπορεί  να  εισάγει  ένα  σχήμα  και  στη  συ¬ 
νέχεια  να  το  περιστρέψει  γύρω  από  την  αρχή  των  αξόνων. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Το  πρώτο  πράγμα  που  πρέπει  να  κάνεις  είναι  να  εισάγεις  το  σχήμα.  Μετά 
πρέπει  να  ορίσεις  τη  γωνία  περιστροφής  του  μετασχηματισμού  που  θα  εκτε- 
λέσει  το  πρόγραμμα. 


100  ΚΕΜ  Πρόγραμμα  -  Γενικός  μετασχηματισμός 
110  ΡΕΡ  ΡΝεΙΐθεΙ<χ(Χ)  =  (Χ>-320)  ΑΝΡ  (Χ<320) 

120  ΡΕΡ  ΡΝοίΐθθΙιγ(Υ)  =  ( Υ>~200)  ΑΝΡ  (Υ<200) 

130  Μ0ΡΕ  1 

140  60$υΒ  1000: ΚΕΜ  Εισαγωγή  σχήματος 
145  Μ0ΡΕ  2:0ΚΙ6ΙΝ  320,200 
150  6051ΙΒ  2000: ΚΕΜ  Σχεδιασμός  σχήματος 
160  Γ$="":άΕ6 
170  ΜΗΙΙΕ  γ$<>"ζ" 

180  ΕΟΟΑΤΕ  1,25 

190  I ΝΡΟΤ  «ΟΡΙΣΕ  ΤΗ  ΓΩΝΙΑ  ΠΕΡΙΣΤΡΟΦΗΣ  (ΣΕ  ΜΟΙΡΕΣ)»,  (ΙιεΙα 
200  Ε00ΑΤΕ  1,25:ΡΚΙΝΤ  5ΡΑΟΕ$(80); 

210  6051ΙΒ  5000:  ΚΕΜ  Υπολογισμός  μητρώου  περιστροφής 

220  6051ΙΒ  4000: ΚΕΜ  Διαγραφή  σχήματος 

230  6051ΙΒ  3000:  ΚΕΜ  Υπολογισμός  νέου  σχήματος 

■240  602ΙΙΒ  2000:  ΚΕΜ  Σχεδιασμός  σχήματος 
250  ΕΟΟΑΤΕ  1,25: 

ΡΚ I ΝΤ  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  ζ  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ,  Ή  ΟΠΟΙΟΔΗΠΟΤΕ» 
:  ΡΚΙΝΤ  «ΑΛΛΟ  ΓΙΑ  ΝΑ  ΕΠΑΝΑΛΑΒΕΙΣ» 

260  γ$=ΙΝΚΕΥ$:ΙΡ  γ$=""  ΤΗΕΝ  260 
270  ΙΡ  Γ$="Ζ,'  ΤΗΕΝ  γ$="ζ" 

280  ΕΟΟΑΤΕ  1,25:ΡΚΙΝΤ  5ΡΑ0Ε$(8Ο); 

290  ΝΕΝϋ 
300  ΕΝΟ 
980  : 

990  ΡΕΜ  Υπορουτίνα  καταχώρησης  σχήματος 
1000  0Ε5 

1010  ΡΚΙΝΤ:ΡΚΙΝΤ 

1020  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΕΥΘΥΓΡΑΜΜΩΝ  ΤΜΗΜΑΤΩΝ  ΤΟΥ  ΣΧΗΜΑΤΟΣ=  »,  η 
1030  0ΙΜ  5ΐΐ3ρθ(2,2*η) 

1040  ΚΕΜ  βηΐβΓ  $1ΐ3ρθ 
1050  Ρ0Κ  ϊ  =  1  ΤΟ  2*η  5.ΤΕΡ  2 

1060  η  39=0 

1070  ΜΗΙΕΕ  11.39=0 
1080  015 

1 090  ΡΚ  I  ΝΤ  «ΔΩΣΕ  ΤΩΡΑ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΩΝ  ΑΚΡΩΝ  ΤΟΥ» 

:  Ρ Κ I  ΝΤ « ΕΥΘΥΓΡΑΜΜΟΥ  ΤΜΗΜΑΤΟΣ  ΜΕ  ΑΡΙΘΜΟ;» 

ΡΚΙΝΤ  ( ϊ+1 )/2 
1100  ΕΟΟΑΤΕ  1,6 

1110  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΕΝΟΣ  ΑΚΡΟΥ  (X,  Υ)», 

δΙΐ3ρθ(  1,  ί  )  ,  5ίΐ3ρθ (2,  ΐ ) 

1120  ΙΝΡυΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΑΛΛΟΥ  ΑΚΡΟΥ», 

5(ΐ3ρθ(  1,ϊ  +  1  ),5ΐΐ3ρθ(2,1  +  1  ) 

1130  ί  ΐ39=ΡΝο(ιβςΧχ(  $1ΐ3ρβ(  1,  ϊ)) 

ΑΝΡ  ΡΝοΙΐθςΙ<χ(5ΐΐ3ρθ(  1,  ϊ  +  1 )  ) 
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1140  ΐΐ39=ί  ΐ39*(ΡΝς(ιβεΚ/(5ίΐ3ρθ(2,ϊ)) 

ΑΝ&  ΡΝεΙιεοΚχ(5ίΐ3ρθ(2,ι  +  1))) 

1150  ΙΡ  ίΐ39=0  ΤΗΕΝ·  1.00ΑΤΕ  1,20:ΡΡΙΝΤ  «ΛΑΘΟΣ»  +  ΟΗΚ  $  (7) 
Ε15Ε  1180 

1160  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΠΑΝΟΡΘΩΣΕΙΣ» 

1170  ζ$=ΙΝΚΕΥ$:ΙΡ  7$=""  ΤΗΕΝ  1170 

1180  ΝΕΝϋ 

1190  ΝΕΧΤ  ϊ 

1200  ΡΕΤυΡΝ 

1970  : 

1980  : 

1990  ΡΕΜ  Ρουτίνα  διαγραφής  σχήματος 
2000  ΜΟνΕ  0,0 

2010  Ρ0Ρ  ϊ=1  ΤΟ  2*π  5ΤΕΡ  2 
2020  ΜΟνΕ  5 Γι 3 ρβ <  1,ϊ),5ΐΊ3ρβ(2,ϊ) 

2030  ΡΡΑΗ  3ή3ρβ(1,ϊ+1),5Η3ρθ(2,ΐ+1),1 

2040  ΝΕΧΤ  ϊ 
2050  ΡΕΤυΡΝ 

2970  ΡΕΜ  Υπορουτίνα  περιστροφής 
2980  ΡΕΜ  Παλιό  σχήμα  στο  σχήμα  (χ,γ) 

2990  ΡΕΜ  Νέο  σχήμα  στο  η  σχήμα  (χ,γ) 

3000  ΡΟΡ  ΐ=1  ΤΟ  2*η 

3010  Ιΐ  =  5ίΐ3ρβ(1,ϊ  ):ΐ2=5ή3ρε(2,ϊ) 

3015  5ή3ρβ( 1,ϊ)=γ( 1,1)*ΐ1+Γ(1,2)*ΐ2 
3020  3ΐΐ3ρθ(  2,  Ϊ)=τ(2,1)*ΐ1+Γ(2,2)*ΐ2 
3030  ΝΕΧΤ  ϊ 
3040  ΡΕΤυΡΝ 
3970  : 

3980  : 

3990  ΡΕΜ  Ρουτίνα  σχεδιασμού  σχήματος 
4000  ΡΟΡ  ΐ=1  ΤΟ  2*η  5ΤΕΡ  2 
4020  ΜΟνΕ  5Η3ρθ(1,ϊ),δ1ΐ3ρ0(2,1) 

4030  ϋΡΑΜ  5ή3ρε(1,ΐ+1),$ή3ρθ(2,ϊ+1),0 

4040  ΝΕΧΤ  ί 
4050  ΡΕΤυΡΝ 
4970  : 

4980  : 

4990  ΡΕΜ  Υπολογισμός  πίνακα  μετασχηματισμού. 

5000  Γ(1,1)=(:θ5(ΐΙΐ0ΐ3):Γ(1,2)=-·$ΙΝ(ΙΐΊ0ΐ3) 

5010  Γ(2,1)  =  $ΙΝ(ΐήεΐ3):Γ(2,2)=(:05{ΐήεΐ3) 

5020  ΡΕΤυΡΝ 
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Π 49  ΤΡΙΔΙΑΣΤΑΤΗ  ΠΕΡΙΣΤΡΟΦΗ  -  1 


Αντικείμενο  εργασίας  αυτού  του  προγράμματος  είναι  η  περιστροφή  ενός 
δισδιάστατου  σχήματος  στο  επίπεδο  που  ορίζει  η  οθόνη. 

Το  σχήμα  είναι  ένα  κανονικό  πολύγωνο,  τον  αριθμό  των  πλευρών  του  ο¬ 
ποίου  επιλέγει  ο  χρήστης.  Ας  σημειωθεί  ότι  οριακό  σχήμα  για  κάθε  πολύγω¬ 
νο  αποτελεί  ο  κύκλος,  όταν  ο  αριθμός  των  πλευρών  του  πρώτου  τείνει  στο  ά¬ 
πειρο. 

Το  κέντρο  του  πολύγωνου  είναι  το  σημείο  ΧΟ,  ΥΟ,  ΖΟ  και  ο  αριθμός  των 
πλευρών  του  η  μεταβλητή  Νδ. 


Το  πρόγραμμα  εφαρμόζει  τις  αρχές  του  προγράμματος  περιστροφής  που  πα- 
ρουσιάθηκε  σε  προηγούμενο  πρόγραμμα. 

Το  πολύγωνο  μποερί  να  έχει  μέχρι  50  πλευρές.  Αν  επιλεγεί  αυτός  ο  αριθμός 
πλευρών  τότε  προσεγγίζουμε  τον  κύκλο,  έτσι  σ'  αυτό  το  όριο  η  ρουτίνα  θα 
σχηματίσει  την  όψη  μιας  σφαίρας. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Τρισδιάστατη  περιστροφή  ! 

110  ΜΟΰΕ  1 

120  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

130  ΡΚΙΝΤ  «ΑΝΤΙΚΕΙΜΕΝΟ  ΑΥΤΟΥ  ΤΟΥ  ΠΡΟΓΡΑΜΜΑΤΟΣ  ΕΙΝΑΙ  Ο» 

140  ΡΚΙΝΤ  «ΣΧΗΜΑΤΙΣΜΟΣ· ΕΝΟΣ  ΤΡΙΣΔΙΑΣΤΑΤΟΥ  ΣΩΜΑΤΟΣ  ΣΤΟΥ  ΕΠΙΠΕΔΟ» 
150  ΡΚΙΝΤ*  ΠΟΥ  ΟΡΙΖΕΙ/Η  ΟΘΟΝΗ.  ΟΙ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΣΧΗΜΑΤΟΣ» 
160  ΡΚΙΝΤ  «ΚΑΤΑΧΩΡΟΥΝΤΑΙ  ΣΤΟΝ  ΠΙΝΑΚΑ 5(3,50).» 

170  ΡΚΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΤΟ  ΔΙΣΔΙ ΑΣΤΑΤΟ  ΣΧΗΜΑ» 

180  ΡΚΙΝΤ  «ΜΠΟΡΕΙ  ΝΑ  ΕΧΕΙ  ΜΕΧΡΙ  50  ΠΛΕΥΡΕΣ.  ΤΟ  ΣΧΗΜΑ» 

190  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΕΝΑ  ΠΟΛΥΓΩΝΟ  ΚΑΙ  ΕΝΑ  ΠΟΛΥΓΩΝΟ  ΜΕ  50» 

200  ΡΚΙΝΤ  «ΠΛΕΥΡΕΣ  ΕΙΝΑΙ  ΣΧΕΔΟΝ  ΕΝΑΣ  ΚΥΚΛΟΣ,  ΕΤΣΙ  ΣΤΗΝ» 

210  ΡΚΙΝΤ  «ΟΡΙΑΚΗ  ΑΥΤΗ  ΠΕΡΙΠΤΩΣΗ  ΘΑ  ΣΧΗΜΑΤΊΣΘΕΙ  ΜΙΑ  ΣΦΑΙΡΑ.» 

220  ΡΚ ΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

230  ΡΚΙΝΤ  «ΤΟ  ΠΟΛΥΓΩΝΟ  ΕΧΕΙ  ΚΕΝΤΡΟ  ΤΗΝ  ΑΡΧΗ  ΤΩΝ  ΑΞΟΝΩΝ» 

240  ΡΚΙΝΤ  «ΚΑΙ  ΕΧΕΙ  Ν  ΠΛΕΥΡΕΣ» 

250  ΡΚΙΝΤ: ΡΚΙΝΤ 

260  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ  » 

270  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=""  ΤΗΕΝ  270 
280  01.2 

290  0ΙΜ  5(3, 50), (13(3,50), ε(3, 3) 

300  ΙΝΡΙΙΤ  «ΔΩΣΕ  ΤΗΝ  ΑΚΤΙΝΑ  ΤΟΥ  ΠΟΛΥΓΩΝΟΥ»,  γ 
310  ΙΝΡυΤ  «ΔΩΣΕ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΠΛΕΥΡΩΝ»,  η 

320  ΙΝΡυΤ  «ΔΩΣΕ  ΤΗ  ΓΩΝΙΑ  ΠΕΡΙΣΤΡΟΦΗΣ  ΠΕΡΙ  ΤΟΝ  ΑΞΟΝΑ  γ  (ΣΕ  ΜΟΙΡΕΣ)», 

330  6θΐ3=ί)θΐ3*ΡΙ/’ΐ80 

340  Μ0ΡΕ  2 

350  0ΚΙΕΙΝ  320,200 

360  ΐΙΐθΐ3=Ι)θ1;3 

370  6051ΙΒ  4000 


380  6021ΙΒ  1000: ΡΕΜ  Εισαγωγή  σχήματος 
390  6051ΙΒ  3000:  ΡΕΜ  Σχεδιασμός  σχήματος 
400  ΜΗΙΕΕ  ΐίιβΐ3<2*ΡΙ+6βί 3 
410  60$ΙΙΒ  2000: ΡΕΜ  Νέο  όψη 

420  6051ΙΒ  3000: ΡΕΜ  Σχεδιασμός  της 

430  ΐίΐθί3='(:1ΐθΐ3+1>θΐ3 

440  ΚΕΝΟ 
450  ΕΝΰ 
460  : 

470  : 

990  ΡΕΜ  Διαδικασία  σχήματος 

1000  £ΐ3ίρΙΐ3=2*ΡΙ/η 

1010  3ΐρίΐ3  =  -έ)3ΐρίΐ3 

1020  ΡΟΡ  1=1  ΤΟ  Π 

1030  3ΐρ(ΐ3=3ΐρί13  +  ΐΐ3ΐρίΐ3 

1040  5(1/ϊ)  =  Γ*005(3ΐρΐΊ3) 

1050  5(2,ί)  =  Γ*$ΙΝ(3ίρΙΐ3) 

1060  5(3, ί )=0 

1070  ΝΕΧΤ  ϊ 
1080  ΡΕΤυΡΝ 
1090  : 

1100  : 

1990  ΡΕΜ  Διαδικασία  νέας  όψης 
2000  ΡΟΚ  ΐ=1  ΤΟ  π 

2010  Π5( Ι,ί )=5( 1,ι)*ο( 1,1)+5(2,ϊ)*ο(2,1)+5(3,ί )*α(3,1) 

2020  η5(2,ΐ)=5(1,ϊ)*ο(1,2)+5(2,ϊ)*ο(2,2)+5(3,ϊ)*ο(3,2) 

2030  η5(3,ϊ)=5(1,ϊ)*ο(1,3)+5(2,ΐ)*ο(2,3)+5(3, ϊ ) *  ς  (.3,3 ) 

2040  ΝΕΧΤ  ϊ 

2050  ΡΟΡ  ϊ=1  ΤΟ  π 

2060  ΡΟΡ  Ι<=1  ΤΟ  3 

2070  5(Χ,})=η5(Χ,3) 

2080  ΝΕΧΤ  X 
2090  ΝΕΧΤ  ί 
2100  ΡΕΤυΡΝ 
2110  : 

2120  : 

2990  ΡΕΜ  Διαδικασία  σχεδιασμού 
3000  ΜΟνΕ  5(1,1), 8(2,1) 

3010  ΡΟΡ  ί=2  ΤΟ  π 

3020  ΡΡΑΜ  8(1, ί), 5(2,1) 

3030  ΝΕΧΤ  ϊ 

3040  ΟΡΑΗ  8(1,1), 5(2,1) 

3050  ΡΕΤυΡΝ 
3060  : 

3070  : 

3990  ΡΕΜ  Δημιουργία  πίνακα  περιστροφής  περί  τον  άξονα  ν 
4000  ο(1,'1)=00δ(ίίιβΐ3) 

4010  ο ( 1,2) =0 

4020  ο(1,3)=-5ΙΝ(ΐίΐθΐ3) 

4030  ο(2,1 )=0 
4040  ο(2,2)=1 
4050  ο(2,3) =0 
4060  ς(3,1)=5ΙΝ(ϊίιεΐ3) 

4070  ο(3,2) =0 

4080  ο(3,3)=00$(1:Ιΐ6ΐ3) 

4090  ΡΕΤυΡΝ 
4100  : 

4110  : 
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Π50  ΤΡΙΣΔΙΑΣΤΑΤΗ  ΠΕΡΙΣΤΡΟΦΗ  -  2 


Με  αυτό  το  πρόγραμμα  ο  χρήστης  μπορεί  να  εισάγει  ένα  πολύγωνο  και  να  το 
περιστρέψει  γύρω  από  τον  άξονα  των  χ. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Τρισδιάστατη  περίστροφό  2 
110  ΜΟΰΕ  1 

120  ρριντ:ρριντ:ρριντ 

130  ΡΡΙΝΤ  «ΑΝΤΙΚΕΙΜΕΝΟ  ΑΥΤΟΥ  ΤΟΥ  ΠΡΟΓΡΑΜΜΑΤΟΣ  ΕΙΝΑΙ  Ο» 

140  ΡΡΙΝΤ  «ΣΧΗΜΑΤΙΣΜΟΣ ΕΝΟΣ  ΤΡΙΣΔΙΑΣΤΑΤΟΥ  ΣΩΜΑΤΟΣ  ΣΤΟ  ΕΠΙΠΕΔΟ» 
150  ΡΡΙΝΤ  «ΠΟΥ  ΟΡΙΖΕΙ  Η  ΟΘΟΝΗ.  ΟΙ  ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΤΟΥ  ΣΧΗΜΑΤΟΣ». 

160  ΡΡΙΝΤ  «ΚΑΤΑΧΩΡΟΥΝΤΑΙ  ΣΤΟΝ  ΠΙΝΑΚΑ  (3,50).»» 

170  ΡΡΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΤΟ  ΔΙΣΔΙΑΣΤΑΤΟ  ΣΧΗΜΑ» 

180  ΡΡΙΝΤ  «ΜΠΟΡΕΙ  ΝΑ  ΕΧΕΙ  ΜΕΧΡΙ  50  ΠΛΕΥΡΕΣ.  ΤΟ  ΣΧΗΜΑ» 

190  ΡΡΙΝΤ  «ΕΙΝΑΙ  ΕΝΑ  ΠΟΛΥΓΩΝΟ  ΚΑΙ  ΕΝΑ  ΠΟΛΥΓΩΝΟ  ΜΕ  50» 

200  ΡΡΙΝΤ  «ΠΛΕΥΡΕΣ  ΕΙΝΑΙ  ΣΧΕΔΟΝ  ΕΝΑΣ  ΚΥΚΛΟΣ,  ΕΤΣΙ  ΣΤΗΝ» 

210  ΡΡΙΝΤ  «ΟΡΙΑΚΗ  ΑΥΤΗ  ΠΕΡΙΠΤΩΣΗ  ΘΑ  ΣΧΗΜΑΤΙΣΘΕΙ  ΜΙΑ  ΣΦΑΙΡΑ» 

220  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

230  ΡΡΙΝΤ  «ΤΟ  ΠΟΛΥΓΩΝΟ  ΕΧΕΙ  ΚΕΝΤΡΟ  ΤΗΝ  ΑΡΧΗ  ΤΩΝ  ΑΞΟΝΩΝ» 

240  ΡΡΙΝΤ  «ΚΑΙ  ΕΧΕΙ  Ν  ΠΛΕΥΡΕΣ» 

250  ΡΡΙΝΤίΡΡΙΝΤ 

260  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

270  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=Μ”  ΤΗΕΝ  270 
280  0Ι_5 

290  ΡΙΜ  5(3,50),η8(3,50),ς{3,3) 

300  ΙΝΡυΤ  «ΔΩΣΕ  ΤΗΝ  ΑΚΤΙΝΑ  ΤΟΥ  ΠΟΛΥΓΩΝΟΥ»,  γ 
310  ΙΝΡυΤ  «ΔΩΣΕ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΠΛΕΥΡΩΝ»,  η 

320  ΙΝΡυΤ  «ΔΩΣΕ  ΤΗ  ΓΩΝΙΑ  ΠΕΡΙΣΤΡΟΦΗΣ  ΠΕΡΙ  ΤΟΝ  ΑΞΟΝΑ  Υ  (ΣΕ  ΜΟΙΡΕΣ)», 
όεο 

330  όβΐ3:=ΐ5θΐ3*ΡΙ/180 
340  ΜΟΟΕ  2 
350  0ΡΙ6ΙΝ  320,200 
360  ΐ(ιβΐ3=ύθΐ3 
370  εο$υΒ  4000 

380  605ΙΙΒ  1000:  ΡΕΜ  Εισαγωγή  σχήματος 

390  6051ΙΒ  3000:  ΡΕΜ  Σχεδιασμός  σχήματος 

400  ΗΗΙΕΕ  ΐΐΊθΐ3<2*ΡΙ+1)θΐ3 

410  6051ΙΒ  2000:  ΡΕΜ  Νέα  όψη 

420  60δυΒ  3000: ΡΕΜ  Σχεδιασμός  της 

430  1ίΐθΐ3  =  ΐ1ΐθΐ3  +  1)θΐ3 

440  ΝΕΝ0 

450  ΕΝϋ 

460  : 

470  : 

990  ΡΕΜ  Διαδικασία  σχήματος 

1000  03ΐρ(ΐ3=2*ΡΙ/η 

1010  3ΐρή3=-03ΐρίΐ3 

1020  Ε0Ρ  ϊ  =1  ΤΟ  π 

1030  3ΐρίΐ3  =  3ΐρίΐ3+ά3ΐρ(ΐ3 

1040  5(1,ϊ)  =  Γ*ΟΟδ(3ΐρίΐ3) 

1050  5(2, ί )=γ*5ΙΝ(3 ί  ρΗβ ) 

1060  5(3,ί )=0 

1070  ΝΕΧΤ  ϊ 
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1080  ΚΕΤυΚΝ 
1090  : 

1100  : 

1990  ΚΕΜ  Διαδικασία  νέας  όψης 
2000  ΡΟΚ  ϊ=1  ΤΟ  η 

2010  η5(1,ί)=3(1,ΐ)*ε(1,1)+3(2,ί)*ε(2,1)+3(3,ϊ)*ε(3,1) 

2020  η3(2,ι)=8(1,ϊ)*ε(1,2)+3(2,ί)*ε(2,2)+5(3,ϊ)*ε(3,2) 

2030  η8(3,ϊ)=3(1,ϊ)*ε(1,3)+3(2,ϊ)*ε(2,3)+8(3,ι)*ε(3,3) 

2040  ΝΕΧΤ  ί 

2050  ΡΟΚ  }=1  ΤΟ  η 

2060  ΡΟΚ  Κ=1  ΤΟ  3 

2070  δ(Κ,3)=η3(Κ,)) 

2080  ΝΕΧΤ  X 
2090  ΝΕΧΤ  ΐ 
2100  ΚΕΤυΚΝ 
2110  : 

2120  : 

2990  ΚΕΜ  Διαδικασία  σχεδιασμού 
3000  ΜΟνΕ  5(1,1), 8(2,1) 

3010  ΡΟΚ  ϊ=2  ΤΟ  η 
3020  ί)ΚΑΜ  8(1,ι), 8(2, ϊ) 

3030  ΝΕΧΤ  ι 

3040  ΟΚΑΜ  8(1,1), 3(2,1) 

3050  ΚΕΤυΚΝ 
3060  : 

3070  : 

3990  ΚΕΜ  Δημιουργία  πίνακα  περιστροφής  περί  τον  άξονα  χ 

4000  ε(1,1)=1 

4010  ε(1,2)=0 

4020  ε( 1,3) =0 

4030  ε(2,1)=0 

4040  ς(2,2)=0Ο5(ΐίιβΐ3) 

4050  ε(2,3)=5ΙΝ(ΐΠθΐ3) 

4060  ε(3,1)=0 

4070  ε(3,2)=-5ΙΝ(ΐΡΐ6ΐ3) 

4080  ε(3,3)=005(ΐ(ΐθΐ3) 

4090  ΚΕΤυΚΝ 
4100  : 

4110  : 
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Π51  ΠΡΟΟΠΤΙΚΗ 


Πολλοί  θα  θυμούνται  ορισμένα  πράγματα  για  την  προοπτική  από  το  σχο¬ 
λείο.  Συνήθως  χρησιμοποιείται  η  μέθοδος  κατά  την  οποία  προσδιορίζεται 
ένα  σημείο  φυγής,  όπως  ονομάζεται.  Σ’  αυτό  το  σημείο  πρέπει  να  καταλλή- 
γουν  όλες  οι  παράλληλες  γραμμές.  Σ’  αυτό  το  πρόγραμμα  χρησιμοποιούμε 
μια  μικρή  παραλλαγή  αυτής  της  μεθόδου. 

Σ’  αυτή  τη  ρουτίνα  φανταζόμαστε  ένα  σταθερό  σημείο  από  το  οποίο  βλέπου¬ 
με  ένα  σώμα,  π.χ.  το  σημείο  (0,  0,  0),  και  υπολογίζουμε  την  προβολή  αυτού 
του  τρισδιάστατου  σώματος  σε  ένα  υποθετικό  επίπεδο,  π.χ.  εκείνο  όπου 
Ζ=Κ.  Με  τον  τρόπο  αυτό  έχουμε  μια  δισδιάστατη  απεικόνιση  του  τρισδιά¬ 
στατου  σώματος  σε  προοπτική. 

Φυσιολογικά  δεν  επιθυμούμε  να  βλέπουμε  από  το  σημείο  (0, 0, 0)  με  επίπεδο 
προβολής,  το  Ζ=Κ.  Συνήθως  έχουμε  ένα  αυθαίρετο  σημείο  (νΧ,  νΥ,  νΖ)  και 
χρησιμοποιούμε  το  επίπεδο  προβολής  Ζ=0. 

Έτσι  ο  αλγόριθμος  που  χρησιμοποιείται  για  τον  υπολογισμό  των  συντεταγ¬ 
μένων  ενός  υποθετικού  σημείου  είναι  ο  παρακάτω: 

1.  Υπολογισμός  των  συντεταγμένων  του  σημείου  ως  προς  το  σημείο  (0, 0, 0). 

2.  Υπολογισμός  των  συντεταγμένων  της  προβολής  στο  επίπεδο  Ζ=  -νΖ. 

3.  Νέος  υπολογισμός  των  συντεταγμένων  με  βάση  τις  παλιές. 

4.  Σχεδίαση  του  σχήματος  με  τις  νέες  συτνεταγμένες. 

Αυτό  το  πρόγραμμα  χρησιμοποιεί  την  παραπάνω  ρουτίνα  για  να  παρουσιά¬ 
σει  ένα  σπίτι  σε  προοπτική. 
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ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  Προοπτική 
110  ΜΟϋΕ  1 

120  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

130  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΜΦΑΝΙΖΕΙ  ΑΡΧΙΚΑ  ΕΝΑ» 

140  ΡΡΙΝΤ  «ΜΗ  ΠΡΟΟΠΤΙΚΟ  ΣΧΗΜΑ.. 

150  ΡΡΙΝΤ  «ΚΑΙ  ΜΕΤΑ  ΤΗΝ  ΠΑΡΕΜΒΑΣΗ  ΤΟΥ  ΧΡΗΣΤΗ.» 

160  ΡΡΙΝΤ  «ΤΟ ΕΜΦΑΝΙΖΕΙ  ΣΕ  ΠΡΟΟΠΤΙΚΗ.» 

170  ΡΡΙΝΤ 

180  ΡΡΙΝΤ  «ΕΧΕΙ  ΕΠΙΛΕΓΕΙ  ΤΟ  ΣΧΗΜΑ» 

190  ΡΡΙΝΤ  «ΕΝΟΣ ΣΠΙΤΙΟΥ.» 

200  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

210  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

220  ζ$=ΙΝΚΕΥ$:ΙΡ  ζ$=" "  ΤΗΕΝ  220 
230  015 

240  βΙΜ  ή( 10,3),  5(10,3),  ρ(10,3) 

250  Ρ0Ρ  ί=1  ΤΟ  10 

260  Ρ0Ρ  Ϊ=1  ΤΟ  3 

270  ΡΕΑϋ  ίι(  ϊ,ϊ  ):$(  ι  ,ϊ  )=ή(  ϊ,ϊ ) 

280  ΝΕΧΤ  ΐ 
290  ΝΕΧΤ  ι 
300  : 

310  ΰΑΤΑ  0,0,-200,100,0,-200,100,80,-200,50,100 
320  0ΑΤΑ  -200,0,80,-200,0,0,-50,100,0,-50,100 
330  ΡΑΤΑ  80,-50,50,100,-50,0,80,-50 
340  : 

350  ΜΟϋΕ  2 

360  0ΡΙ6ΙΝ  320,200 

370  6051ΙΒ  1000:  ΡΕΜ  Σχεδίασή  σπιτιού 

380  : 

390  Γ$="γ" 

400  ΝΗΙΙΕ  γ$=Ύ'  0Ρ  γ$="Υ" 

410  : 

415  Ι_00  ΑΤΕ  1,24 

420  ΙΝΡυΤ  «ΣΥΝΤΕΤΑΓΜΕΝΕΣ  ΣΗΜΕΙΟΥ  ΑΠΟ  ΤΟ  ΟΠΟΙΟ  ΒΛΕΠΟΥΜΕ  ΤΟ 
ΣΠΙΤΙ  (χ,γ,ζ)»,νχ,  νν,  νζ 

430  01.5 

440  : 

450  Ε0Ρ  ϊ=1  ΤΟ  10 

460  Χ=ε( ϊ,Ι ) : Υ=5( ι ,2) :ζ=5( ΐ,3) 

470  6051ΙΒ  2000:  ΡΕΜ  Υπολογισμοί  για  την  προοπτική  του  σπιτιού 

480  ρ ( ϊ,1)=ςχ:ρ(  ϊ,2)=ργ':ρ(  ι,3)=0 

490  ΝΕΧΤ  ι 
500  : 

510  Ρ0Ρ  ΐ=1  ΤΟ  10 
520  Ρ0Ρ  3=1 .ΤΟ  3 

530  ίι(ΐ,ΐ)=ρ(ι,5) 

540  ΝΕΧΤ  ϊ 

550  ΝΕΧΤ  ι 
560  : 

570  6051ΙΒ  1000:  ΡΕΜ  Σχεδίαση  σπιτιού 

580  ΕΟςΑΤΕ  1,25:  ΡΡΙΝΤ  «ΑΛΛΗ  ΟΨΗ;» 

590  γ$=ΙΝΚΕΥ$:  ΙΕ  γ$="'’  ΤΗΕΝ  590 
600  ΝΕΝΰ 
610  ΕΝΡ 

990  ΡΕΜ  Διαδικασία  σχεδίασης  του  σπιτιού 
1000  ΜΟνΕ  Ιΐ(1,1),Ρι(1,2) 
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1010  ΕΟΡ  5=2  ΤΟ  5 

1020  βΡΑΜ  1ι(ϊ,1),»ι(ΐ,2) 

1030  ΝΕΧΤ  5 

1040  βΡΑΜ  ή(1,1),Ιι(1,2) 

1050  ΡΕΜ  Σχεδίαση  της  πίσω  μεριάς  του  σπιτιού 
1060  ΜΟνΕ  ίι(6,1),ή(6,2) 

1070  ΕΟΡ  5=7  ΤΟ  10 
1080  βΡΑΜ  Η(5,1)/»ι(ΐ^2) 

1090  ΝΕΧΤ  5 

1100  βΡΑΜ  ή(6,1),ή<6,2) 

1110  ΡΕΜ  Ένωση  πίσω  και  μπροστινής  μέριας 
1120  ΜΟνΕ  ίι(6,1),Ιι(6,2) 

1130  βΡΑΜ  1ι(1,1),ίι(1,2) 

1140  ΜΟνΕ  β( 10,1 ),ή( 10,2) 

1150  βΡΑΜ  ίι(5,1),ίι(5,2) 

1160  ΜΟνΕ  Ιι(9,1),β(9,2) 

1170  βΡΑΜ  ίι(4,1),ίι(4,2) 

1180  ΜΟνΕ  ίι(8,1  ),ίι(8,2) 

1190  βΡΑΜ  β(3,1),Η(3,2) 

1200  ΜΟνΕ  β(7,1),ίι(7,2) 

1210  ΒΡΑΜ  Ιί ( 2 , 1  >,β(2,2) 

1220  ΡΕΤυΡΝ 
1230  : 

1240  : 

1990  ΡΕΜ  Υπολογισμοί  για  την  προοπτική  του  σπιτιού 

2000  ΡΧ=Χ-νχ 

2010  ΡΥ=Υ-νχ 

2020  ΡΖ=Ζ-νζ 

2030  Ρ=-νζ/ΡΖ 

2040  ςχ=Ρ*ΡΧ+νχ 

2050  ςχ=Ρ*ΡΥ+νγ 

2060  ΡΕΤυΡΝ 
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Π52  ΠΕΡΙΣΤΡΕΦΟΜΕΝΟ  ΣΠΙΤΙ 


Το  πρόγραμμα  αυτό  παρουσιάζει  ένα  συνεχώς  περιστρεφόμενο  γύρω  από 
την  αρχή  των  αξόνων,  αντικείμενο  εφαρμόζοντας  τις  τεχνικές  που  αναπτύ¬ 
χθηκαν  στα  προηγούμενα  προγράμματα.  Το  αντικείμενο  που  χρησιμοποιεί¬ 
ται  εδώ  είοναι  το  γραμμικό  σχέδιο  ενός  σπιτιού. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΚΕΜ  Πρόγραμμα  -  Περιστρεφόμενο  σπίτι 
110  ΜΟΡΕ  1 

120  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

130  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΜΦΑΝΙΖΕΙ  ΑΡΧΙΚΑ  ΕΝΑ  ΜΗ» 
140  ΡΚΙΝΤ  «ΠΡΟΟΠΤΙΚΟ  ΣΧΗΜΑ» 

150  ΡΚΙΝΤ  «ΚΑΙ  ΜΕΤΑ  ΤΗΝ  ΠΑΡΕΜΒΑΣΗ  ΤΟΥ  ΧΡΗΣΤΗ,» 

160  ΡΚΙΝΤ  «ΤΟ  ΕΜΦΑΝΙΖΕΙ  ΣΕ  ΠΡΟΟΠΤΙΚΗ.» 

170  ΡΚΙΝΤ 

180  ΡΚΙΝΤ  «ΕΧΕΙ  ΕΠΙΛΕΓΕΙ  ΤΟ  ΣΧΗΜΑ» 

190  ΡΚΙΝΤ  «ΕΝΟΣ ΣΠΙΤΙΟΥ.» 

200  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

210  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ 
220  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$="Μ  ΤΗΕΝ  220 
230  0 1_5 

240  ΟΙΜ  Ρ( 10,3),  3(10,3),  ρ(  10,3) 

250  Ρ0Κ  ί=1  ΤΟ  10 

260  ΡΟΚ  ί=1  ΤΟ  3 

270  ΚΕΑΡ  1>(  ϊ,ί  ):  δ(  ϊ,ϊ  )=Η(  ϊ,ί  ) 

280  ΝΕΧΤ  ] 

290  ΝΕΧΤ  ί 
300  : 

310  ΡΑΤΑ  0,0,-200,100,0,-200,100,80,-200,50,100 
320  ΡΑΤΑ  -200,0,80,-200,0,0,-50,100,0,-50,100 
330  ΡΑΤΑ  80,-50,50,100,-50,0,80,-50 
340  : 

350  Μ0ΡΕ  2: Β0ΚΡΕΚ  3 

360  0ΚΙ6ΙΝ  320,200 

370  ΕΟδίΙΒ  640:  ΚΕΜ  Σχεδίαση  σπιτιού 

380  νχ=500:νγ=500:νζ=500:ΚΕΜ  Σημείο  όρασης 

390  60$ίΙΒ  1080:  ΚΕΜ  Κατάστρωση  του  πίνακα  για  την  περιστροφή 

400  : 

410  ΗΗΙίΕ  1=1 
420  : 

430  ΐ=ΤΙΜΕ 

440  ν/ΗΙΕΕ  ΤΙΜΕΌ+300: ΜΕΝΡ 
450  0Ε5 

460  : 

470  ΡΟΚ  ϊ=1  ΤΟ  10 

480  Χ=$( ϊ,Ι ): Υ=δ( ί,2) :Ζ=δ( ί,3) 

490  6081ΙΒ  900:  ΚΕΜ  Υπολογισμοί  για  την  προοπτική  του  σπιτιού 

500  ρ(ί,1)=ηχ:ρ(ϊ,2)=ςγ:ρ( ΐ ,3) =0 

510  ΝΕΧΤ  ϊ 
520  : 

530  ΡΟΚ  ϊ=1  ΤΟ  10 
540  ΡΟΚ  )=1  ΤΟ  3 

550  Ρ(ϊ,))=ρ( ϊ,ϊ) 

560  ΝΕΧΤ  ] 
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570  ΝΕΧΤ  ι 
580  : 

590  6051ΙΒ  640:  ΡΕΜ  Σχεδίαση  σπιτιού 

600  605υΒ  980: ΡΕΜ  Περιστροφή 

610  ΗΕΝΒ 
620  ΕΝΒ 

630  ΡΕΜ  Διαδικασία  σχεδίασης  του  σπιτιού 
640  ΜΟνΕ  (ι(1,1),(ι(1,2) 

650  ΡΟΡ  ]=2  ΤΟ  5 

660  ΒΡΑΗ  Ιι(ί,1),Ιι(ϊ,2) 

670  ΝΕΧΤ  ϊ 

680  ΒΡΑΝ  (ι(  1,1  ),(ι(  1,2) 

690  ΡΕΜ  Σχεδίαση  της  πίσω  μεριάς  του  σπιτιού 
700  ΜΟνΕ  (ι(6,1),(ι(6,2) 

710  ΡΟΡ  ]=7  ΤΟ  10 

720  ΒΡΑΗ  Η( 3,1 ),Η( 5,2) 

730  ΝΕΧΤ  ΐ 

740  ΒΡΑΜ  (ι(6,1),(ι(6,2) 

750  ΡΕΜ  Ένωση  πίσω  και  μπροστινής  μεριάς 
760  ΜΟνΕ  Π(6,1),Μ(6,2) 

770  βΡΑΜ  (ϊ(1,1),(ι(1,2) 

780  ΜΟνΕ  (1(10,1), (1(10,2) 

790  ΒΡΑΝ  (1(5,1), (1(5, 2) 

800  ΜΟνΕ  (1(9,1), (ι(9, 2) 

810  ΒΡΑΗ  (ι(4,1), (1(4, 2) 

820  ΜΟνΕ  (ι(8,1), (ι(8, 2) 

830  ΒΡΑΗ  (ι(3,1), (1(3, 2) 

840  ΜΟνΕ  (ι(7,1), (ι(7, 2) 

850  ΒΡΑΜ  (ι(2,1), (1(2,2) 

860  ΡΕΤυΡΝ 
870  : 

880  : 

890  ΡΕΜ  Υπολογισμοί  για  την  προοπτική  του  σπιτιού 

900  ΡΧ=Χ-νχ 

910  ΡΥ=Υ-νγ 

920  ΡΖ=Ζ-νζ 

930  Ρ=-νζ/ΡΖ 

940  ςχ=Ρ*ΡΧ+νχ 

950  ργ=Ρ*ΡΥ+νγ 

960  ΡΕΤυΡΝ 

970  ΡΕΜ  Διαδικασία  περιστροφής 
980  ΡΟΡ  ϊ=1  ΤΟ  10 

990  3=0(1, 1)*5(Ι,1)+ε(2,1)*5( ϊ,2)+ο(3,1)*5( ϊ,3) 

1000  (ρ=ο(1,2)*8(Ι,1)+ο(2,2)*5(ί,2)+ο(3,2)*8(ι,3) 

1010  ο=ο(1,3)*8(Ι,1)+ο(2,3)*δ(ΐ,2)+ο(3,3)*δ( ί,3) 

1020  5( ΐ,1)=β: δ( ΐ,2)=6: 3( 1,3)=ο 

1030  ΝΕΧΤ  ϊ 

1040  ΡΕΤυΡΝ 

1050  : 

1060  : 

1070  ΡΕΜ  Πίνακας  για  την  περιστροφή 
1080  ο(  1,1)=005(ΡΙ/10) 

1090  ο ( 1,2) =0 

1100  ο(1,3)=-5ΙΝ(ΡΙ/10) 

1110  ο ( 2 , 1 )=0 
1120  ς(2,2)=1 
1130  ο(2,3)=0 
1140  ε(3,1)=$ΙΝ(ΡΙ/10) 

1150  ο(3,2)=0 

1160  ς(3,3)=00$(ΡΙ/10) 

1170  ΡΕΤυΡΝ 
1180  : 

1190  : 


124 


Π53  ΟΟΟϋΕΕ 


Αυτό  το  πρόγραμμα  δίνει  τη  δυνατότητα  στο  χρήστη  να  χρησιμοποιεί  τα 
πλήκτρα  ελέγχου  του  δρομέα  ώστε  ο  τελευταίος  να  γράφει  ελεύθερα  πάνω 
στην  οθόνη. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  ΟοοόΙε 

110  ΠΟΡΕ  0 

120  0ΡΙ6ΙΝ  320,200 

125  ε=1 

130  ΗΗΙΙΕ  1=1 

140  άχ=(ΙΝΚΕΥ(8)=0)-(ΙΝΚΕΥ<1)=0) 

150  άγ=( ΙΝΚΕΥ(2)=0)-(ΙΝΚΕΥ(0)=0) 
170  ΡΡΑΗΡ  άχ,άγ 
180  ΜΕΝΡ 
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Π54  ΤΡΙΣΔΙΑΣΤΑΤΗ  ΑΠΕΙΚΟΝΙΣΗ  ΕΠΙΦΑΝΕΙΑΣ 


Με  αυτό  το  πρόγραμμα  μπορούμε  να  σχεδιάσουμε  μια  τρισδιάστατη  όψη 
μιας  μαθηματικά  ορισμένης  επιφάνειας.  Ο  χρήστης  έχει  τη  δυνατότητα  να 
κρατήσει  ή  να  αφαιρέσει  από  το  σχήμα  τις  γραμμές,  που  σε  κανονικές  συν¬ 
θήκες  κρύβονται  από  τις  μπροστινές  επιφάνειες  του  σχήματος.  Η  επιφάνεια 
αργεί  να  σχεδιασθεί,  η  διαδικασία  όμως  αυτή  μπορεί  να  επιταχυνθεί  εύκολα. 
Αν  θέλεις  να  δοκιμάσεις  άλλες  επιφάνειες  δεν  έχεις  παρά  να  αλλάξεις  τις 
σχετικές  εντολές  του  προγράμματος. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Τρισδιάστατη  απεικόνιση  επιφάνειας 
110  ΠΟΡΕ  2 

120  ΡΙΗ  υρρετίόΑΟ), Ιομθγ(640) 

130  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΣΤΟ  ΣΧΗΜΑ  ΝΑ  ΠΕΡΙΛΑΜΒΑΝΟΝΤΑΙ  ΟΙ  ΚΡΥΜΜΕΝΕΣ 
ΓΡΑΜΜΕΣ (Ύ/Ν)»,  3115$ 

140  ΙΡ  1_ΕΡΤ$(3Γ,55,1)  =  "Υ"  ΤΗΕΝ  1ηβ=-1  ΕΕ5Ε  1ηβ=0 

150  ςβηίχ=320: εθπΐχ=200 

160  νϊει</χ=275: νΪ6Μζ=120 

170  ΡΕΜ  Παράμετροι  καμπύλης 

180  ητ=40:ο(ιπι=0.043 

190  : 

200  ΡΟΗ  ί=1  ΤΟ  640 
210  ιιρρβΓ(ι)=0 
220  Ιον/βΓ(ϊ)  =  1000 

230  ΝΕΧΤ  ϊ 
240  : 

250  ΡΟΗ  ζ=νΐθΜΖ-1  ΤΟ  -νΐθν/ζ  +  1  5ΤΕΡ  -5 

260  Ιομχ=ΙΝΤ(  ν  Ϊ6ΐ«/χ*50Κ(  1-ζ*ζ/ν  ΐθΜζ/ν  ϊβν/ζ  )+0. 5) 

270  χ=-Ιομχ 

280  χ=Μ*5ΙΝ(οίιπι*50Η(χ*χ+ζ*ζ) ) 

290  χ1=χ+εθπΐχ+ζ 

300  /1=ΙΝΤ(400-(εθπΐ/+γ+ζ/2)+0.5) 

310  ΡΟΗ  χ=-Ιον/χ  +  1  ΤΟ  Ιον/χ-1 

320  γ=ίιΐ*δΙΝ(οίιπι*50Ε(χ*χ  +  ζ*ζ)) 

330  χ2=οθπϊχ+χ+ζ 

340  γ2=ΙΝΤ{400-(θθΠίγ+γ+ζ/2)+0.5) 

350  ΙΡ  1πε=0  ΤΗΕΝ  60ΤΟ  390 

360  ΙΡ  γ2<Ιον/6Γ{χ2)  ΤΗΕΝ  6051ΙΒ  460 

370  ΙΡ  γ2>υρρβΓ(χ2) 

ΤΗΕΝ  υρρβΓ(χ2)=γ2:Μ0νΕ  χ1,χ1:[)ΗΑΗ  χ2,χ2 
380  60Τ0  400 

390  ΜΟνΕ  χ 1 ,χΐ : ΡΚΑΝ  χ2,/2 

400  χ1=χ2 

410  χ1=χ2 

420  ΝΕΧΤ  χ 
430  ΝΕΧΤ  ζ 
440  ΕΝ0 
450  : 

460  ΙοινθΓ  (χ2)=χ2 

470  ΙΡ  υρρθΓ(χ2)=0  ΤΗΕΝ  υρρθΓ(χ2)=γ2 
480  ΗΕΤΙΙΗΝ 
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Π55  ΤΡΙΣΔΙΑΣΤΑΤΟ  ΙΣΤΟΓΡΑΜΜΑ 


Αυτό  το  πρόγραμμα  εκμεταλλεύεται  τις  ικανότητες  του  ΑηΐδίΓαό  για  να  δεί¬ 
ξει  τον  τρόπο  με  τον  οποίο  μπορεί  να  σχεδιασθεί  ένα  τρισδιάστατο  ιστό¬ 
γραμμα. 


ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Τρισδιάστατο  Ιστόγραμμα 
110  ΜΟβΕ  0 

120  Κ1=5:Κ2=20:Ι<3=10 
130  ΚΕΜ  Σχεδίαση  βάθους 
140  ρ=100:η=100 

150  ΜΟνΕ  ρ,ρ:βΚΑΜΚ  300,300*Χ1/Χ3, 1 : 

βΚΑΗΚ  200,-200*Ι<1/Κ2, 1 

160  βΚΑΗΚ  -300,-300*Χ 1/Χ3, 1 :  βΚΑΗΚ  -200,200*Κ1/Ι<:2,1 
170  ΡΟΚ  Ϊ=1  ΤΟ  3 

180  ΜΟνΕ  ρ,ί*50+ρ:βΚΑΜΚ  300,300*1<1/1<3,1: 

βΚΑΗΚ  200,-200*1<1/1<2,1 

190  ΝΕΧΤ  ϊ 

200  ΜΟνΕ  ρ,εμβΚΑΜΚ  0,150,1 
210  ΜΟνΕΚ  300,300*Κ1/Ι<3:  βΚΑΜΚ  0,-150,1 
220  ΜΟΧ/ΕΡ  200, — 200*Κ  1/)<2:  βΚΑΜΚ  0,150,1 
230  : 

240  ΚΕΜ  Τοποθέτηση  «ιστών»  βάθους 
250  ϊΚ=2:οίί=80 

260  ΚΕΑΟ  β:χ=ρ+40:χ=η-8:6051ΙΒ  450 
270  ΡΟΚ  ϊ=1  ΤΟ  3 

280  ΚΕΑβ  Ιί: χ=χ+οί ί:>=χ+οίί*!<1Α3:605υΒ  450 
290  ΝΕΧΤ  ϊ 

300  ΚΕΜ  Τοποθέτηση  επόμενης  σειράς 
310  ϊΚ=3:οίί=80 

320  ΚΕΑβ  β:  χ=ρ+190:  γ=ρ-20:60$ΙΙΒ  450 
330  ΡΟΚ  5  =  1  ΤΟ  3 

340  ΚΕΑβ  β:χ=χ+οΗ:γ=/+οίί*Κ1/Χ3:605υΒ  450 
350  ΝΕΧΤ  : 

360  ΚΕΜ  Τρίτη  σειρά 
370  ϊΙ<=4:οίί=80 

380  ΚΕΑβ  β:  χ=ρ+240:χ=α-32:605ίΐΒ  450 
390  ΡΟΚ  5=1  ΤΟ  3 

400  ΚΕΑΒ  β:  χ=χ+οΤΤ:  χ=χ+οΗ*Χ1/Κ3:  605ΕΙ8  450 
410  ΝΕΧΤ  ] 

420  : 

430  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  430 
440  ΕΝΟ 

450  ΚΕΜ  ΜΟνΕ  χ,γΐΒΚΑΜΚ  Ο,Η,ΐΧ 
460  ΡΟΚ  ρ=0  ΤΟ  Κ2  5ΤΕΡ  2 
470  ΜΟνΕ  ρ+χ,χ-ρ*Κ1Α2 
480  ΒΚΑΜΚ  Ο,β,ϊΧ 

490  ΒΚΑΜΚ  Χ3,Ι<1 ,  ΪΚ 

500  ΝΕΧΤ  ρ 
510  : 

520  ΡΟΚ  ρ=Χ3  ΤΟ  0  5ΤΕΡ  -2 

530  ΜΟνΕ  χ+Ι<2+ρ,χ— ( (ς 3—  ρ)*1<1/1<3 

540  ΒΚΑΜΚ  Ο,β,ΐΧ 
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550  ΝΕΧΤ  ρ 
560  : 

570  ΜΟνΕ  χ  +  Κ2,χ-Ι<3*Ι<1Α3 

580  ΟΚΑΗΚ  Ο,ϊι+2,0 

590  ΟΚΑΜΚ  Ι<3,1<1,0 

600  ΜΟνΕ  χ,χ+Π:0ΡΑΜΚ  Κ2,Α1,0 

610  ΚΕΤυΚΝ 

620  ^ΑΤ Α  100,80, 120, 100,150,60,100 
630  ϋΑΤΑ  100,140,75,126,150 
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Π56  ΙΣΤΟΓΡΑΜΜΑ 


Αυτό  το  πρόγραμμα  μπορεί  να  παρουσιάζει  στην  οθόνη  ένα  ιστόγραμμα  με 
τριάντα  γραμμές  το  περισσότερο.  Οι  γραμμές  κανονίζονται  έτσι  ώστε  να  χω¬ 
ρούν  στην  οθόνη.  Το  ιστόγραμμα  δεν  έχει  τίτλο.  Αυτό  το  αφήσαμε  για  σένα 
σαν  εξάσκηση. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τον  αριθμό  των  γραμμών,  μικρότερο  από  30. 

Δώσε  την  τιμή  κάθε  γραμμής  όταν  σου  ζητείται. 


100  ΡΕΜ  Πρόγραμμα  -  Ιστόγραμμα 
110  ΜΟΟΕ  1 

120  5ΥΜΒ0Ε  244,126,126,126,126,126,126,126,126 

130  5ΥΜΒ0Ε  245,24,24,24,24,24,24,24,24 

140  5ΥΜΒ01  246,0,0,0,0,0,0,0,255 

150  15 Ε Ρ  ΡΝρΓΐ$(3)=ΚΙ6ΗΤ$("  "+5ΤΡ$(3) ,3) 

160  I  ΝΡυΤ  «ΔΩΣΕ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΓΡΑΜΜΩΝ  (<30)»,  03Γ3 
170  ϋΙΜ  ν3ΐυβ(ά3Γ$) 

180  Π13Χ  ϊ ηιυΓη=0 
190  ΡΟΡ  ϊ=1  ΤΟ  θ3Γ5 
200  ΕΟΟΑΤΕ  1,5 

210  ΙΝΡϋΤ  «ΤΙΜΗ  ΓΡΑΜΜΗΣ»,  ναΐυο  (ί) 

220  ΙΡ  νβΙυβ(  ΐ )>πΐ3χ ΐπιυιτι  ΤΗΕΝ  πιβχ  ΐπιυπι=ν3ΐυβ(  ϊ ) 
230  ΝΕΧΤ  ϊ 
240  : 

250  α$ 

260  εε3ΐ.θ=1 

270  ΙΡ  ηΐ3χϊπιυπι>20  ΤΗΕΝ  5θ3ίθ=πΐ3χϊπιυιη/20 
280  : 

290  ΡΟΡ  ϊ=1  ΤΟ  Θ3Γ5 

300  νβΐυθί ϊ)=ΙΝΤ(ν3ΐυ6( ι)/503ΐβ) 

310  ΝΕΧΤ  ι 
320  : 

330  ΡΟΡ  ι=1  ΤΟ  20  5ΤΕΡ  2 

340  ΕΟΟΑΤΕ  1 ,22- ί : ΡΚΙΝΤ  ΡΝρΓΐ$(ΙΝΤ( ϊ*503ίθ)) 
350  ΝΕΧΤ  ϊ 
360  : 

370  ΡΟΡ  ι=1  ΤΟ  23 

380  ΕΟΟΑΤΕ  4, ϊ : ΡΡΙΝΤ  0ΗΡ$(245); 

390  ΝΕΧΤ  ϊ 
400  : 

410  ΡΟΡ  ϊ  =  1  ΤΟ  (33Γ5+4 

420  ΕΟΟΑΤΕ  4+ΐ,22:ΡΡΙΝΤ  0ΗΡ$<246),· 

430  ΝΕΧΤ  ϊ 
440  : 

450  ΡΟΡ  ϊ  =  1  ΤΟ  ί)3Γ  5 
460  ΡΟΡ  ]=1  ΤΟ  νβΐυείϊ) 

470  ΕΟΟΑΤΕ  7+ϊ,22-ί:ΡΡΙΝΤ  0ΗΡ$(244); 

480  ΝΕΧΤ  ] 

490  ΝΕΧΤ  ί 

500  ζ$=ΙΝΚΕΥ$:ΙΡ  ζ$="·’  ΤΗΕΝ  500 
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24.7 
22. 1 


19.5 

16.9 

14.3 
11.7 
9.1 

6.5 

3.9 

1.3 
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Π57  ΚΥΚΛΙΚΟ  ΔΙΑΓΡΑΜΜΑ 


Αυτό  είναι  ένα  εύκολα  κατανοητό  πρόγραμμα  που  μπορεί  να  χρησιμοποιη¬ 
θεί  για  να  παρουσιάζει  ένα  κυκλικό  διάγραμμα  στην  οθόνη. 

Για  να  επιταχύνουμε  την  αρχική  εμφάνιση  του  διαγράμματος  προσθέσαμε 
μια  παράμετρο,  η  τιμή  της  οποίας  δηλώνει  το  επίπεδο  ανάλυσης  του  κυκλι¬ 
κού  διαγράμματος.  Έτσι  αν  το  επίπεδο  αυτό  είναι  χαμηλό,  ας  πούμε  0.2,  τό¬ 
τε  το  εμφανιζόμενο  διάγραμμα  πιθανόν  να  μην  είναι  πολύ  ακριβές.  Εάν  λοι¬ 
πόν  είσαι  ικανοποιημένος  σε  γενικές  γραμμές  από  το  διάγραμμα  μπορείς  να 
το  ξανασχεδιάσεις  με  μεγαλύτερη  ακρίβεια  για  να  πάρεις  το  τελικό  σου  α¬ 
ντίγραφο. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τα  στοιχεία  όπως  θα  σου  ζητηθούν. 


100  ΚΕΜ  Πρόγραμμα  -  Κυκλικό  διάγραμμα 
110  ΰΙΜ  ίΐειη(20) 

120  Μ0ΡΕ  1 
130  : 

140  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΑΠΕΙΚΟΝΙΖΕΙ  ΕΝΑ  ΚΥΚΛΙΚΟ  ΔΙΑΓΡΑΜΜΑ," 
150  ΡΚΙΝΤ  «ΒΑΣΙΣΜΕΝΟ  ΣΤΑ  ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΙΣΑΓΕΙΣ,  ΕΝΑ  ΚΑΘΕ  ΦΟΡΑ.» 

160  ΡΚΙΝΤ  ..ΔΙΑΦΟΡΕΤΙΚΕΣ  ΠΕΡΙΟΧΕΣ  ΤΟΥ  ΚΥΚΛΙΚΟΥ  ΔΙΑΓΡΑΜΜΑΤΟΣ» 

170  ΡΚΙΝΤ  «ΧΡΩΜΑΤΙΖΟΝΤΑΙ  ΜΕ  ΔΙΑΦΟΡΕΤΙΚΑ  ΧΡΩΜΑΤΑ,  ΓΓ  ΑΥΤΟ» 

180  ΡΚΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΛΕΙΤΟΥΡΓΕΙ  ΣΕΜΟϋΕ  0.» 


190  ΡΚΙΝΤ: ΡΚΙΝΤ: 

200  ΡΚΙΝΤ  «ΒΑΛΕ  ΤΑ  ΔΕΔΟΜΕΝΑ,  ΕΝΑ  ΚΑΘΕ  ΦΟΡΑ» 

210  ΡΚΙΝΤ  «  ΠΑΤΗΣΕ  ΤΟ  0  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ  ΤΗΝ  ΕΙΣΑΓΩΓΗ  ΔΕΔΟΜΕΝΩΝ» 


220  ϊ=0:ίϋΐ3ΐ.=0 

230  ϊΐεπι(  ϊ)=1:ΡΕΜ  Αυτό  το  δεδομένο  δεν  χρησιμοποιείται 
240  ΗΗΙΙΕ  ϊ  ΐειη(  ϊ  )<>0  ΑΝ!>  Κ20 


260  ΙΟΟΑΤΕ  5, 15: ΡΚΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΕΔΟΜΕΝΟ-»;  8ΡΑΘΕ  $  (20); 
270  ΙΟΟΑΤΕ  19,15:  ΙΝΡΙΙΤ  "",  ιΐεπι<  ϊ ) 

280  ΐοΐ3ΐ=ΐοτ3ΐ  +  ίΐβπι(  ϊ) 

290  ΝΕΝΡ 

300  ΙΡ  ϊ<20  ΤΗΕΝ  60Τ0  360  Λ.4„νΙ4 

310  ΡΚΙΝΤ  ·<ΔΕΝ  ΥΠΑΡΧΕΙ  ΑΛΛΟΣ  ΧΩΡΟΣ  ΓΙΑ  ΔΕΔΟΜΕΝΑ» 

320  ΡΚΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΠΡΟΧΩΡΗΣΟΥΜΕ  ΣΤΗ  ΣΧΕΔΙΑΣΗ;» 

330  ζ$=ΙΝΚΕΥ$:ΙΡ  ζ$=""  ΤΗΕΝ  330 
340  ΙΡ  ζ$="π"  0Ρ  ζ$="Ν"  ΤΗΕΝ  5Τ0Ρ 
350  ΙΝΡυΤ  «ΑΝΑΛΥΣΗ  ΣΕ  ΑΚΤΙΝΙΑ»,  τεε 
360  ΙΝΡυΤ  «ΑΝΑΛΥΣΗ  ΣΕ  ΑΚΤΙΝΙΑ»,  Γεε 


370  Γθρε3ΐ=-1:0Ι-$ 


380  ΜΗΙΕΕ  Γερεθΐ 
390  0Ε5 

400  ΡΚΙΝΤ  2ΡΑ0Ε$(  15);  «ΚΥΚΛΙΚΟ  ΔΙΑΓΡΑΜΜΑ» 

410  ΙΡ  (ΐ-1)  Μ0έ  3=1  ΤΗΕΝ  Ιΐ39=-1  Ε15Ε  Η39=0 

420  ΙΡ  1 139--1  ΤΗΕΝ  Ι35ΐ  .  ϊ  ΐεπι=  ϊ-2  ΕΕ5Ε  1351 .  ϊ ΐειη=  ί-1 

430  Ι35ΐ . 3Π9ΐε=0: 3Π9ΐε=0 

440  0ΡΙ6ΙΝ  320,200 

450  : 

460  Ρ0Κ  ΐ  =  1  ΤΟ  ί35ΐ.  ϊτεπι 
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470  ε=(]  ΜΟϋ  3)+1 

480  6031ΙΒ  590:  ΡΕΜ  Σχεδίαση 

490  Ι35ΐ.3η9ΐθ=ΐ35ΐ.3η9ΐβ  +  2*ΡΙ*ίΐθΐτι(  ))/ΐοΐ:3ΐ 

500  ΝΕΧΤ  ί 
510  : 

520  ΙΡ  ίΐ39=-1  ΤΗΕΝ  ο=3:605υΒ  590 

530  ΕΟΟΑΤΕ  1,24: ΡΡΙΝΤ  «ΝΕΟ  ΕΠΙΠΕΔΟ  ΑΝΑΛΥΣΗΣ»; 

540  ζ$=ΙΝΚΕΥ$:ΙΡ  ζ$=""  ΤΗΕΝ  540 
550  ΙΡ  ζ$="Υ"  ΟΗ  ζί=Ύ'  ΤΗΕΝ  ΡΡΙΝΤ: 

ΙΝΡίΙΤ  «ΑΝΑΛΥΣΗ»,  Γ65  ΕΕ5Ε  Γβρε3ΐ=0 
560  ΜΕΝΡ 
570  ΕΝϋ 

580  ΡΕΜ  Ρουτίνα  σχεδιασμού 

590  ΜΗΙΕΕ  3η9ΐε<ΐ35Ϊ.3η9ΐθ+2*ΡΙ*Ίίειη( ί )/ΐοΐ3ΐ 

600  ΜΟνΕ  0,0 

610  ΟΡΑΗ  120*€05(3η9ΐβ),120*5ΙΝ(3η9ΐε),ο 

620  3η9ΐε=3η9ΐε+Γθδ 
630  ΜΕΝΡ 
640  ΡΕΤυΡΝ 
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Π58  ΜΕΣΟΣ  ΟΡΟΣ  ΚΑΙ  ΤΥΠΙΚΗ  ΑΠΟΚΛΙΣΗ 


Αυτό  το  πρόγραμμα  υπολογίζει  το  μέσο  όρο  και  την  τυπική  απόκλιση  ενός 
συνόλου  αριθμητικών  δεδομένων. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Μέσος  <ν>>;  και  τυπική  απόκλιση 
110  Μ00Ε  1 

120  ί  ΐη=0: 1 Ι39=0:πΐθ3η=0:όθν=0:  ΐοΐ3 1=0 
130  ηοδ=0:  δυιΐ)5=0: 3$='"' 

140  ΡΚΙΝΤΓΡΚΙΝΤ 

150  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΓΙΑ  ΝΑ.» 
160  ΡΚΙΝΤ  «ΥΠΟΛΟΓΙΣΕΙ  ΤΟ  ΜΕΣΟ  ΟΡΟ  ΚΑΙ  ΤΗΝ  ΤΥΠΙΚΗ  ΑΠΟΚΛΙΣΗ  ΕΝΟΣ»» 
170  ΡΚΙΝΤ  «ΣΥΝΟΛΟΥ  ΑΡΙΘΜΗΤΙΚΩΝ  ΔΕΔΟΜΕΝΩΝ.  ΤΑ  ΔΕΔΟΜΕΝΑ». 

180  ΡΚΙΝΤ  «ΕΙΣΑΓΟΝΤΑΙ  ΕΝΑ  ΚΑΘΕ  ΦΟΡΑ  ΚΑΙ  Η  ΔΙΑΔΙΚΑΣΙΑ  ΑΥΤΗ» 

190  ΡΚΙΝΤ  «ΤΕΡΜΑΤΙΖΕΤΑΙ  ΜΕ  ΤΗΝ  ΕΙΣΑΓΩΓΗ  ΕΝΟΣ  ΜΗ  ΑΡΙΘΜΗΤΙΚΟΥ » 

:  ΡΚΙΝΤ  «ΔΕΔΟΜΕΝΟΥ» 

200  ΡΚΙΝΤ: ΡΚΙΝΤ 
210  : 

220  ΜΗΙΕΕ  1 ΐη=0 

230  ΕΟΟΑΤΕ  10,20:  ΡΚΙΝΤ  «ΕΠΟΜΕΝΟ  ΔΕΔΟΜΕΝΟ»;  8ΡΑΟΕ$(Ι6): 

240  Κ=0 

250  ΚΕΜ  Εισαγωγή  πρώτου  χαρακτήρα 
260  Ε$=ΙΝΚΕΥ$:ΙΡ  &$=""  ΤΗΕΝ  260 
270  ΙΡ  &$="."  ΤΗΕΝ  Χ=Ι<+1 
280  ί>=(νΑΙ_(Ε$)=0)  ΑΝΟ 

Ν0Τ(β$="0"  οκ  οκ  &$=·'-"  οκ  &$=··+") 

290  ΙΡ  ό  ΤΗΕΝ  ίιη=-1:  60Τ0  510 
300  ίΟΟΑΤΕ  25,20: ΡΚΙΝΤ 
310  3$=ί>$ 

320  Ρ0Κ  ΐ=1  ΤΟ  14 
330  β=( 1=1 ) 

340  ΜΗΙίΕ  δ 

350  6$=ΙΝΚΕΥ$:ΙΡ  &$=""  ΤΗΕΝ  350 

360  ΙΡ  &$="."  ΤΗΕΝ  Κ=|ς+1: Ε=0: 60Τ0  390 

370  ό=(νΑΙ_(&$)=0)  ΑΝΟ 

νοτ ( β$="0"  οκ  &$="."  οκ  α$0(θ$)=13) 

380  ΙΡ  &  ΤΗΕΝ  ΡΚΙΝΤ  0ΗΚ$(7);· 

390  ΙΡ  Κ>1  ΤΗΕΝ  ΡΚΙΝΤ  0ΗΚ$(7); 

400  ΝΕΝΟ 

410  : 

420  ΙΡ  Α50(1)$)  =  13  ΤΗΕΝ  ϊ  =  14:Η39=1  ΕΙ_5Ε  3$=3$+δ$ 

430  ΕΟΟΑΤΕ  25+ΐ,20:ΡΚΙΝΤ  0$ 

440  ΝΕΧΤ  ι 
450  : 

460  3=νΑΕ(3$) 

470  ΐΟΐ3ΐ=ΐΟί3ΐ+3 
480  ηο5=ηο$+1 

490  5υΐΓ5  =  5υΠ15  +  3*3 

500  ηυΐϊώ$=3$+","+ηυιπβ$ 

510  ΗΕΝβ 
520  : 

530  α_5 

540  πΐθ3η=ΐοΐ3ΐ/ηο5 
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550  ϋθν=ε<ϋ?(3υΓη5/ηοε  -  (πθ3Π*ιτΐθ3η) 

560  ΡΕΙΝΤ  «Ο  ΜΕΣΟΣ  ΟΡΟΣ  ΤΩΝ  ΑΡΙΘΜΩΝ  ΕΙΝΑΙ.,  πιεπη 

570  ΡΕΙΝΤ: ΡΕΙΝΤ: ΡΕΙΝΤ 

580  ΡΕΙΝΤ  «Η  ΤΥΠΙΚΗ  ΑΠΟΚΛΙΣΗ  ΕΙΝΑΙ»  άεν 

590  ΡΕΙΝΤ:  ΡΕΙΝΤ.:  ΡΕΙΝΤ 

600  ΡΕΙΝΤ  «ΟΙ  ΑΡΙΘΜΟΙ  ΗΤΑΝ  -» 

610  ΡΕΙΝΤ  ηυπιΜ 
620  ΕΝϋ 
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Π59  ΚΑΤΑΤΑΞΗ  «ΒϋΒΒΕΕ  δΟΚΤ» 


Αυτό  το  πρόγραμμα  είναι  μια  παρουσίαση  του  τρόπου  με  τον  οποίο  δουλεύει 
το  «ΒυβόΙε  8θ«».  Συγκεκριμένα  κατατάσσει  στην  οθόνη  δέκα  αριθμούς  κατά 
σειρά  μεγέθους. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Κατάταξη  «ΒιιΒόΙε  $0Π» 

110  βΙΜ  ηο5%( 10) 

120  Μ0ΘΕ  0 
130  η=10 

140  Β0Κ0ΕΚ  1 : ΡΕΝ  7:ΡΑΡΕΚ  12:0Ε$ 

150  ΡΚΙΝΤ  «ΠΟΣΑ  ΨΗΦΙΑ  ΕΧΕΙ»; 

160  ΡΚΙΝΤ  «ΚΑΘΕ  ΑΡΙΘΜΟΣ»;  " 

170  ΙΝΡυΤ  ά 

180  ΡΚΙΝΤ  «ΒΑΛΕ  10  ΑΡΙΘΜΟΥΣ» 

190  : 

200  Ρ0Κ  ϊ  =  1  ΤΟ  π 
210  ΙΝΡΙΙΤ  ηοε%(  ί ) 

220  ΙΡ  ΕΕΝ($ΤΚ$(ηο5%(ϊ)))Οά+1  ΤΗΕΝ 
ΡΚΙΝΤ  0ΗΚ$(7): ϊ=ί-1 
230  ΝΕΧΤ  ι 
240  : 

250  ΙΝΡϋΤ  «ΤΑΧΥΤΗΤΑ  ΕΠΕΞΕΡΓΑΣΙΑΣ  (1  μέχρι  10)»,  δρεά 
260  δρθά=5ρθό*50 
270  : 

280  01$ 

290  ΚΕΜ  Παρουσίαση  του  πίνακα  στην  οθόνη 

300  Ρ0Κ  ϊ=1  ΤΟ  10 

310  ΕΟΟΑΤΕ  5,1*2: ΡΚΙΝΤ  ηο5%(ϊ); 

320  ΝΕΧΤ  ϊ 
330  : 

340  ΕΟΟΑΤΕ  1,25:ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ»; 
350  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  350' 

360  ΕΟΟΑΤΕ  1 ,25 : ΡΚΙΝΤ  $ΡΑ0Ε$(13); 

370  : 

380  ΚΕΜ  Ρουτίνα  κατάταξης 
390  : 

400  Ρ0Κ  ϊ=1  ΤΟ  π-1 

410  ΡΟΚ  3=ϊ+1  ΤΟ  π 

420  ΡΕΝ  3 

430  605ΕΙΒ  530 

440  ΡΟΚ  Ι<=1  ΤΟ  δρθά: ΝΕΧΤ  Ι< 

450  ΙΡ  ηοδ%(  ]  )>Π05%(  ϊ  )  ΤΗΕΝ  605ΕΙΒ  580 

460  ΡΕΝ  7 

470  60$υΒ  530 

480  ΝΕΧΤ  ί 

490  ΝΕΧΤ  ΐ 


3  ιυ  . 

520  ΚΕΜ  Ρουτίνα  χρωματισμού  δύο  αριθμών 
530  ΕΟΟΑΤΕ  5,ί*2:ΡΚΙΝΤ  ηο5%(ϊ); 
540  ΕΟΟΑΤΕ  5,]*2:ΡΚΙΝΤ  ηο5%(}); 
550  ΚΕΤυΚΝ 
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560  : 

570  ΚΕΜ  Ρουτίνα  ανταλλαγής  δύο  αριθμών 

580  ΡΕΝ  1 

590  60$υΒ  530 

600  ΡΟΚ  Χ=1  ΤΟ  ερβϋ: ΝΕΧΤ  Κ 

610  ΐ%=ηο3%()) 

620  πο3%( ϊ )=ηοδ%( ϊ ) 

630  Π03%( ϊ )=ΐ% 

640  ΡΟΚ  Κ=1  ΤΟ  5ρεε): ΝΕΧΤ  Ι< 

650  ΡΕΝ  7 

660  005υΒ  530 

670  ΡΚΙΝΤ  0ΗΚ$(7); 

680  ΚΕΤυΚΝ 
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Π60  ΚΑΤΑΤΑΞΗ  «δΗΕΙΧ  80ΚΤ» 

Εδώ  έχουμε  την  κλασική  και  γρήγορη  ρουτίνα  «8ΗεΙ1  δοτί».  Όπως  και  με 
την  «Βαόβίε  δοτί»,  η  κατάταξη  γίνεται  πάνω  στην  οθόνη.  Θα  ήταν  πολύ  χρή¬ 
σιμο  για  την  εξάσκηση  των  ικανοτήτων  σου,  να  προσπαθούσες  να  βρείς  τον 
τρόπο  με  τον  οποίο  γίνεται  αυτή  η  λειτουργία. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  κατάταξη  «5ΗβΙΙ  5οΠ» 

110  ΘΙΜ  ηοδ%(9) 

120  ΜΟΘΕ  0 
130  η=10 

140  Β0ΡΡΕΒ  1 : ΡΕΝ  7:ΡΑΡΕΚ  12:01.3 
150  ΡΚΙΝΤ  «ΠΟΣΑ  ΨΗΦΙΑ  ΕΧΕΙ»; 

160  ΡΚΙΝΤ  «ΚΑΘΕ  ΑΡΙΘΜΟΣ»; 

170  ΙΝΡυΤ  ά 

180  ΡΚΙΝΤ  «ΒΑΛΕ  10  ΑΡΙΘΜΟΥΣ» 

190  : 

200  Ρ0Κ  ΐ=0  ΤΟ  π-1 
210  ΙΝΡΙΠ  ηοδ%( ϊ ) 

220  ΙΡ  1_ΕΝ(5ΤΚ$(ποδ%( ΐ ) ) )<>ά+1  ΤΗΕΝ  ΡΚΙΝΤ  0ΗΚ$(7) : ϊ= ΐ-1 
230  ΝΕΧΤ  ϊ 
240  : 

250  ΙΝΡυΤ  «ΤΑΧΥΤΗΤΑ  ΕΠΕΞΕΡΓΑΣΙΑΣ  (1  ΜΕΧΡΙ  10)»,  δρεά 
260  8ρβά=5ρβε)*50 
270  : 

280  01.5 

290  ΚΕΜ  Εμφάνιση  του  πίνακα  πάνω  στην  οθόνη 
300  Ρ0Κ  ϊ=0  ΤΟ  9 

310  ΕΟΟΑΤΕ  5, ( ί+1 )*2: ΡΚΙΝΤ  ηοδ%(ί); 

320  ΝΕΧΤ  ϊ 
330  : 

340  ΕΟΟΑΤΕ  1,25:  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ»; 

350  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  350 
360  1_00 ΑΤΕ  1,25:  ΡΚΙΝΤ  5ΡΑ0Ε$(13); 

370  : 

380  ΚΕΜ  Ρουτίνα  κατάταξης 
390  : 

400  άϊ8ί%=(η-1)/2 

410  ΜΗΙίΕ  άΐδΐ%>0 

420  Ρ0Κ  ί=άίδΐ%+1  ΤΟ  π-1 

430  Ρ0Κ  ί=ϊ-άΐδΙ/!  ΤΟ  0  5ΤΕΡ  -άϊδΐ% 

440  ροπηΐ=ΐ+ςΙϊδί% 

450  ΡΕΝ  3:005118  570 

460  Ρ0Κ  Ι<=1  ΤΟ  δρεά:  ΝΕΧΤ  Κ 

470  ΙΡ  ποδ%( ) )>ηοδ%(ροϊπί )  ΤΗΕΝ  605ΘΒ  620 

480  ΡΕΝ  7:605ίΙΒ  570 

490  ΝΕΧΤ  ί 

500  ΝΕΧΤ  ϊ 

510  άΐδί%=ΙΝΤ(άίδΐ%/2) 

520  ΜΕΝΙ) 

530  ΙΟΟΑΤΕ  1,25 
540  ΕΝΰ 
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560  ΡΕΜ  Ρουτίνα  χρωματισμού  δύο  αριθμών 

570  ΕΟΟΑΤΕ  5,(ροϊη1:+1)*2:ΡΡΙΝΤ  ηοδ%(ροίηΐ); 

580  ΕΟΟΑΤΕ  5,( ϊ+1)*2:ΡΡΙΝΤ  ηοεΧ(ί); 

590  ΡΕΤΙΙΡΝ 
600  : 

610  ΡΕΜ  Ρουτίνα  ανταλλαγής  δύο  αριθμών 
620  ΡΕΝ  1 
630  60δΙΙΒ  570 

640  ΕΟΡ  Κ=1  ΤΟ  5ρεό:ΝΕΧΤ  X 
650  ΐ%=ηοδ%()) 

660  ηοδ%( :)=ηο3Χ(ροϊηΐ) 

670  ηο$%(ροϊπΐ)=ΐΖ 

680  ΕΟΡ  Χ=1  ΤΟ  $ρθϋ:ΝΕΧΤ  Ι<; 

690  ΡΕΝ  7 

700  605ϋΒ  570 

710  ΡΡΙΝΤ  0ΗΡ$(7); 

720  ΡΕΤυΡΝ 
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Π61  ΣΥΓΧΩΝΕΥΣΗ  ΑΡΧΕΙΩΝ 


Είναι  απαραίτητο  πολλές  φορές  κατά  την  επεξεργασία  δεδομένων  να  μπο¬ 
ρούμε  να  συγχωνεύουμε  δύο  ταξινομημένα  αρχεία  σε  ένα  τρίτο  ταξινομημέ¬ 
νο  αρχείο. 

Είναι  πολύ  πιο  γρήγορο  να  ταξινομείς  μικρά  αρχεία  και  μετά  να  τα  συγχω¬ 
νεύεις  για  να  σχηματίσουν  νέα  μεγαλύτερα.  Σ’  αυτό  το  πρόγραμμα,  χειριζό¬ 
μαστε  αρχεία  χρησιμοποιώντας  πίνακες.  Τα  στοιχεία  των  πινάκων  εισάγο- 
νται  με  το  πληκτρολόγιο  αλλά  το  πρόγραμμα  θα  μπορούσε  να  τροποποιηθεί 
κατά  τέτοιο  τρόπο,  ώστε  τα  στοιχεία  να  «φορτώνονται»  από  κασέτα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τα  στοιχεία  του  πίνακα,  όταν  ζητούνται,  κατά  σειρά  αύξοντος  μεγέ¬ 
θους. 


100  ΚΕΜ  Πρόγραμμα  -  Συγχώνευση  αρχείων 
110  ΜΟύΕ  1 

120  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  ΣΥΓΧΩΝΕΥΕΙ» 
130  ΡΚΙΝΤ  «ΔΥΟ  ΠΙΝΑΚΕΣ  ΔΕΔΟΜΕΝΩΝ.  ΚΑΘΕ  ΠΙΝΑΚΑΣ  ΜΠΟΡΕΙ  ΝΑ» 

140  ΡΚΙΝΤ  «ΠΕΡΙΕΧΕΙ  ΜΕΧΡΙ  100  ΣΤΟΙΧΕΙΑ.  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ» 

150  ΡΚΙΝΤ  «ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΜΑΖΙ  ΜΕ  ΜΙΑ  ΡΟΥΤΙΝΑ  ΚΑΤΑΤΑΞΗΣ» 

:  ΡΚ I ΝΤ  «ΑΠΟΘΗΚΕΥΜΕΝΗ  ΣΕ  ΔΙΣΚΟ.» 

160  ΡΚΙΝΤ  «ΚΑΘΕ  ΠΙΝΑΚΑΣ  ΠΡΕΠΕΙ  ΝΑ  ΕΙΣΑΓΕΤΑΙ  ΚΑΤΑ  ΣΕΙΡΑ  ΑΥΞΟΝΤΟΣ» 

:  ΡΚΙΝΤ  «ΜΕΓΕΘΟΥΣ.» 

170  ρκιντ:ρκιντ:ρκιντ 

180  ΡΙΜ  3ΓΓ3γ1  ( 100)„3Γ Γ3/2(  100),ΙΤ>Γ96(  100) 

190  : 

200  ϊ=0: 3ΓΓ3γ1 ( ί )=1 

210  ΝΗΙίΕ  Κ101  ΑΝβ  3Γ Γ3/1 ( ϊ )<>0 

220  ι=1+1 

230  ίΟΟΑΤΕ  1,10:  ΡΚΙΝΤ  $ΡΑΟΕ$(40),- 

240  ίΟΟΑΤΕ  1,10:  ΙΝΡΙΙΤ  «ΠΙΝΑΚΑΣ  1,  ΣΤΟΙΧΕΙΟ  (0  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ)», 

3ΓΓ3γ1( 1 ) 

250  ΙΡ  Ν0Τ(3ΓΓ3χ1(  ϊ)Ο0  ΑΝΡ  3ΓΓ3γ1 { ϊ-1 )>3Γ Γ3/1 ( 1 ) )  ΤΗΕΝ  300 

260  ίΟΟΑΤΕ  1,10:ΡΚΙΝΤ  «ΛΑΝΘΑΣΜΕΝΗ  ΣΕΙΡΑ  ΕΙΣΑΓΩΓΗΣ·--·: - ,»; 

270  1=1-1 

280  ΡΚΙΝΤ  ΟΗΚ$(7);ΟΗΚ$(7); 

290  Ρ0Κ  Κ=1  ΤΟ  500: ΝΕΧΤ  Κ 

300  ΜΕΝϋ 
310.  η  1  =  ι  —  1 
320  : 

330  1=0: 3ΓΓ3/2( ϊ )=1 

340  ΜΗΙίΕ  Κ101  ΑΝΰ  3γγ3/2(ϊ)<>0 

350  1=1+1 

360  ίΟΟΑΤΕ  1,12: ΡΚ I ΝΤ  5ΡΑ0Ε$(4Ο); 

370  ίΟΟΑΤΕ  1,12:ΐΝΡυΤ  «ΠΙΝΑΚΑΣ  2,  ΣΤΟΙΧΕΙΟ  (0  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ)», 

3ΓΓ3γ2( 1) 

380  ΙΡ  Ν0Τ(3ΓΓ3/2( 1 )<>0  ΑΝΡ  3ΓΓ3γ2( ϊ-1 )>3ΓΓ3γΖ( 1 ) )  ΤΗΕΝ  430 

390  ίΟΟΑΤΕ  1,12:  ΡΚΙΝΤ  «ΛΑΝΘΑΣΜΕΝΗ  ΣΕΙΡΑ  ΕΙΣΑΓΩΓΗΣ---"- - '»; 

400  1=1-1 

410  ΡΚΙΝΤ  0ΗΚ$(7);0ΗΚ$(7); 

420  ΡΟΚ  Κ=1  ΤΟ  500: ΝΕΧΤ  Κ 
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430  ΝΕΝΟ 
440  η2=ι-1 
450  : 

460  ϊ=1 : 3=1 

470  ΜΗΙΕΕ  Ν0Τ(3ΓΓ3>Ί  ( ΐ )=0  ΟΚ  3ΓΓ3/2(])=0) 
480  ΙΕ  3ΓΓ3Υ 1 ( ΐ )<3ΓΓ3γ2( ί ) 

ΤΗΕΝ  πΐΓ9β(  ΐ  +  ϊ-1)=3ΓΓ3/1(1):  ϊ  =  ·'  +  1 
ΕΕ$Ε  [ΤΐΓ9β(1  +  ϊ-1)=3ΓΓ3γ2(ί):3  =  5  +  1 

490  ΗΕΝΡ 
500  : 

510  ΙΡ  3ΓΓ 3χ 1 ( ΐ )=0  ΤΗΕΝ  580 
520  : 

530  ΡΟΚ  Κ=ι  ΤΟ  ηΐ 

540  ιτΐΓ9θ(Ι<:+3“1)=3ΓΓ3χ1(Ι<) 

550  ΝΕΧΤ  X 
560  ΟΟΤΟ  620 
570  : 

580  ΡΟΗ  Χ=ϊ  ΤΟ  η2 

590  πιγ96(Ι<+ϊ-1)=3ΓΓ372(Χ) 

600  ΝΕΧΤ  X 
610  : 

620  0Ε5 

630  ΡΚΙΝΤ  “Ο  ΠΙΝΑΚΑΣ  1  ΑΠΟΤΕΛΕΙΤΑΙ  ΑΠΟ:» 
640  ΡΟΡ  ϊ=1  ΤΟ  ηΐ 
650  ΡΚΙΝΤ  3ΓΓ3χ1(ϊ) 

660  ΝΕΧΤ  ϊ 
670  : 

680  ΡΚΙΝΤ  «Ο  ΠΙΝΑΚΑΣ  2  ΑΠΟΤΕΛΕΙΤΑΙ  ΑΠΟ:» 
690  ΡΟΡ  ϊ=1  ΤΟ  ή2 
700  ΡΚΙΝΤ  3Γ γ 3γ2 ( ΐ ) 

710  ΝΕΧΤ  ϊ 

720  ΡΚΙΝΤ  "Ο  ΣΥΓΧΩΝΕΥΜΕΝΟΣ  ΠΙΝΑΚΑΣ  ΕΙΝΑΙ:» 
730  ΡΟΚ  ϊ=1  ΤΟ  η1+η2 
740  ΡΚΙΝΤ  πΐΓ9ε(ϊ> 

750  ΝΕΧΤ  ϊ 
760  : 

770  ΕΝΟ 
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Π62  ΔΥΑΔΙΚΗ  ΑΝΑΖΗΤΗΣΗ 


Εάν  έχεις  ένα  σύνολο  δεδομένων  ταξινομημένων,  με  κάποιο  τρόπο,  είναι 
μάλλον  αναποτελεσματικό  το  να  προσπαθείς  να  βρεις  ένα  συγκεκριμένο  δε¬ 
δομένο  ψάχνοντας  τη  σειρά  από  την  αρχή.  Για  παράδειγμα,  όταν  ψάχνεις 
μια  λέξη  σε  ένα  λεξικό,  δεν  εξετάζεις  όλες  τις  λέξεις  από  την  αρχή  για  να 
φθάσεις  σ’  αυτήν  που  ζητάς. 

Περισσότερο  αποτελεσματικό  θα  ήταν  να  ανοίξεις  το  λεξικό  στη  μέση  και 
να  διακρίνεις  σε  ποιό  από  τα  δύο  τμήματα  βρίσκεται  η  λέξη.  Αμέσως  μετά 
χωρίζεις  και  πάλι  στη  μέση  αυτό  το  τμήμα.  Η  ρουτίνα  επαναλαμβάνεται  μέ- 
χρις  ότου  βρεις  τη  σελίδα  που  περιέχει  τη  ζητούμενη  λέξη. 

Αυτό  το  πρόγραμμα  εφαρμόζει  μια  παρόμοια  τεχνική  σε  ένα  τιμοκατάλογο. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Πέρασε  τα  είδη  από  τον  τιμοκατάλογο. 


100  ΚΕΜ  Πρόγραμμα  -  Δυαδική  αναζήτηση 
110  ΡΙΜ  ΐΐειη$(100),ρΓϊεε(100) 

120  ΜΟΡΕ  1 

130  ΡΚΙΝΤ  ί  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

140  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΕΙΧΝΕΙ  ΠΩΣ  ΜΠΟΡΕΙ  ΝΑ» 

150  ΡΚΙΝΤ  «ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  Ο  ΥΠΟΛΟΓΙΣΤΗΣ  ΓΙΑ  ΝΑ  ΔΙΑΒΑΣΕΙ  ΤΑΧΥΤΗΤΑ» 
160  ΡΚΙΝΤ  «  ΕΝΑ  ΣΥΝΟΛΟ  ΔΕΔΟΜΕΝΩΝ.  ΤΑ  ΔΕΔΟΜΕΝΑ  ΠΕΡΙΕΧΟΝΤΑΙ  ΣΕ,. 

170  ΡΚΙΝΤ «  ΕΝΤΟΛΕΣ  ΔΕΔΟΜΕΝΩΝ  ΚΑΙ  ΠΡΕΠΕΙ  ΝΑ  ΕΧΟΥΝ  ΤΑΞΙΝΟΜΗΘΕΙ» 

180  ΡΚΙΝΤ «,ΤζΑΤΑ  ΑΛΦΑΒΗΤΙΚΗ  ΣΕΙΡΑ» 

190  ΡΚΙΝΤ  «ΣΤΗ  ΠΕΡΙΠΤΩΣΗ  ΜΑΣ  ΤΑ  ΔΕΔΟΜΕΝΑ» 

200  ΡΚ I ΝΤ  «ΣΥΝΘΕΤΟΥΝ  ΕΝΑ  ΤΙΜΟΚΑΤΑΛΟΓΟ» 

210  ρκιντ:ρκιντ 

220  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

230  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  230 
240  01.5 

250  1=0:  ΐΐβιπ$(ϊ)="5" 

260  ΜΗΙΕΕ  ί  ΐε«η$(  ϊ  )<>"ζζζ'· 

270  ϊ=ϊ+1 

280  ΚΕΑΡ  ΐΙεπι$(  ϊ  ),ρΜεε(  ί ) 

290  ΗΕΝΡ 
300  : 

310  η%=  ί-1 
320  Γβ5$="Υ" 

330  ΜΗΙΕΕ  ΤΕΕΤ$(γθ5$,1  )=”ΥΜ  0Κ  ίΕΕΤ$(Γβ8$,1)=Ύ’ 

340  ΙΝΡυΤ  «ΠΟΙΟ  ΕΙΔΟΣ  ΕΠΙΘΥΜΕΙΣ»;  ίΐβπιί 

350  ί  ΐειπ$=υΡΡΕΡ$(  ϊΐεπιί) 

360  πι%=π%\2 

370  8  1%=ΓΠ% 

380  ίουπά=0 

390  ΐΡεΓε=0 

400  ΜΗ 1 1_ Ε  ΝΟΤ(ίουπά)  ΑΝΡ  ΝΟΤ(ΐΙιεΓε) 

410  ΙΡ  ιΐεπι$<ι1ε!ϊΐ$(ίΐι%+1)  ΑΝΡ  ϊΐεπι$>)ΐεη$(ιτι%-1)  ΑΝΡ 

Ν0Τ  ίουπύ  ΤΗΕΝ  ίΡεΓθ=-1 
420  ΙΡ  ϊΐειτι$=ιΐεΐΓ$(ιτι%)  ΤΗΕΝ  ίουπά=-1 

430  ΙΡ  ϊ  1επι$<ίΐεηπ$(ιη%)  ΤΗΕΝ  ε  ί  %=β  I  %\2:  πι%=πι%-ε  I  %+ ( β  ί  %=0 ) 

440  ΙΡ  ϊΐειπ$>ιίειη$(ιη%)  ΤΗΕΝ  ε I %=ε I %\2 : πι%=πι%+θ I %- ( ε I %=0 ) 
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450  ΗΗΙΙΕ  γπ%>π% 

460  θΙ%=θΙ%\2 

470  ιη%=ιη%-θ1%+(θ1%:=0) 

480  ΝΕΝΡ 

490  ΜΕΝΡ 

500  : 

510  ΙΡ  ΐουηά  ΤΗΕΝ  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ  ϊίθπι$(πι%)  ,ρΓ  ίςε<πι%) 

Ε05Ε  ΡΚΙΝΤ: ΡΚΙΝΤ:  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΕΙΔΟΣ  ΔΕΝ  » 

:  ΡΚΙΝΤ “  ΠΕΡΙΕΧΕΤΑΙ  ΣΤΟΝ  ΤΙΜΟΚΑΤΑΛΟΓΟ» 

520  ΙΝΡΙΙΤ  «ΑΛΛΟ», Γ6$$ 

530  ΜΕΝΡ 
540  ΕΝΡ 
550  : 

560  ΡΑΤΑ  ΑΡΡ1_Ε3,30.1,ΒΑ6,12.09,ΒΑ6-ΒΐυΕ,56.34,ΒΑΝΑΝΑ,3.10, 
ΒΑΝ6ΕΚ,123.32,ΒΕΕΚ-ΕΧΡ0ΚΤ,0.45,ΒΕΕΚ-Ι_Α6ΕΚ,0.55 
570  ΡΑΤΑ  ΒΕΕΚ-3ΤθυΤ,Ο.67,Β00ΖΕ,4.34,ΒΟΤΤ1_Ε,90.2, 
ΒΟΤΤΕΕ-6ΚΕΕΝ,3.45,Β0νΚΙΙ,Ο.75 
580  ΡΑΤΑ  ΟΑΒΒΑ6Ε,0.76,ΟΑΝΑΡΑ  ΡΚΥ,0.78,ΟΑΝΑΡΙΑΝ  01_ϋΒ,7.35, 
ΟΑΚΚΟΤ3,0.30,ΟΟΡ  ΕίνΕΚ  ΟΙΙ,0.76,ΟΟΜΡυΤΕΚ3,299.99 
590  ΡΑΤΑ  0ΟΟΚΕΚ5,Ο.65,0ΚΑΒ-ΑΡΡΕΕ3,Ο.Ο0 

600  ΡΑΤΑ  ΡΙ66ΕΚ5,4567.34,ΡΙ30  ΡΚΐνΕ3,250.67,ΡΙ303  ΡΡΡ3,2.55, 

Ρ 1 50 5  δΡδδ,Ι. 80, Ρ0ΖΕΚ3, 123456. 78 
610  ΡΑΤΑ  ΕΜΡΙΚΕ  ΒΙδΟυΐΤδ,  .70,ΕΜΙΙΙ-ΑΤ0Κ,6577,ΕΝΑΜΕΙ_-ΚΕΡ,7.35, 

ΕΝΑΜΕΙ-ΜΗΙΤΕ,8.35,ΕΝ6ΙΝΕ-ΟΑΚ,50.56,ΕΝ6ΙΝΕ“3000ΤΕΚ,45 .76, 
ΡΑΝ,5 . 79, ΡΑΚΜ, 1000000 
620  ΡΑΤΑ  ζζζ,Ο 
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Π63  ΜΕΤΑΘΕΣΕΙΣ 


Εδώ  παρουσιάζουμε  μια  ιδιαίτερα  χρήσιμη  ρουτίνα  για  τη  στατιστική.  Το 
πρόγραμμα  χρησιμοποιείται  για  να  υπολογίζει  τον  αριθμό  των  μεταθέσεων  η 
αντικειμένων  από  τα  οποία  λαμβάνονται  γ  τη  φορά. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Μεταθέσεις 

110  ΜΟΘΕ  1 

120  ΡΡΙΝΤ: ΡΚΙΝΤ 

130  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  ΥΠΟΛΟΓΙΖΕΙ» 
140  ΡΚΙΝΤ  «ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΜΕΤΑΘΕΣΕΩΝ  η  ΑΝΤΙΚΕΙΜΕΝΩΝ  ΑΠΟ  ΤΑ» 

150  ΡΚΙΝΤ  «ΟΠΟΙΑ  ΛΑΜΒΑΝΟΝΤΑΙ  τ  ΚΑΘΕ  ΦΟΡΑ» 

160  ΡΚΙΝΤ 

170  ΡΚΙΝΤ  «ΓΙΑ  ΠΑΡΑΔΕΙΓΜΑ,  ΕΣΤΩ  ΟΤΙ  ΕΧΟΥΜΕ  4  ΑΝΡΘΩΠΟΥΣ ΠΟΥ  » 

180  ΡΚΙΝΤ»  ΣΥΜΜΕΤΕΧΟΥΝ  ΣΕ  ΚΑΠΟΙΟ  ΑΓΩΝΙΣΜΑ,  ΚΑΙ  ΘΕΛΟΥΜΕ  ΝΑ» 

190  ΡΚΙΝΤ. .ΥΠΟΛΟΓΙΣΟΥΜΕ  ΜΕ  ΠΟΣΟΥΣ  ΤΡΟΠΟΥΣ  ΜΠΟΡΟΥΝ  ΝΑ» 

: ΡΡΙΝΤ  «ΣΥΜΠΛΗΡΩΘΟΥΝ  ΟΙ  3  ΠΡΩΤΕΣ  ΘΕΣΕΙΣ» 

200  ΡΚΙΝΤ: ΡΚΙΝΤ 

210  ΡΚΙΝΤ  «ΥΠΟΘΕΤΟΥΜΕ  ΟΤΙ  ΟΙ  ΑΘΛΗΤΕΣ  ΟΝΟΜΑΖΟΝΤΑΙ  Α,  Β,  Ο,  &  ϋ» 
220  ΡΚΙΝΤ  «ΤΟΤΕ  ΟΙ  ΠΙΘΑΝΕΣ  ΘΕΣΕΙΣ  ΤΩΝ  ΝΙΚΗΤΩΝ» 

230  ΡΚΙΝΤ  «ΘΑ  ΕΙΝΑΙ  ΟΙ  ΕΞΗΣ:» 

240  ΡΚΙΝΤ 

250  ΡΡΙΝΤ  "ΑΒΟ  ΒΑΟ  ΒΟΑ  ΟΑΒ  ΟΒΑ  ΑΟΒ" 

260  ΡΡΙΝΤ  "ΑΒύ  ΑΘΒ  ΒύΑ  ΒΑΘ  ΘΒΑ  ΘΑΒ" 

270  ΡΚΙΝΤ  "ΑΟΘ  ΑΘΘ  ΟΑΘ  ΟΘΑ  ΘΑΘ  ΘΟΑ" 

280  ΡΚΙΝΤ  "Β00  Βθθ  ΟΒΟ  ΟΘΒ  ΟΒΟ  ΘΟΒ" 

290  ΡΡΙΝΤ 

300  ΡΚΙΝΤ  «Σ'  ΑΥΤΟ  ΤΟ  ΠΑΡΑΔΕΙΓΜΑ  ΥΠΑΡΧΟΥΝ  24  ΤΡΟΠΟΙ» 

310  ΡΚΙΝΤ  «ΤΟΠΟΘΕΤΗΣΗΣ  ΤΩΝ  3  ΠΡΩΤΩΝ  ΝΙΚΗΤΩΝ  ΤΟΥ  ΑΓΩΝΙΣΜΑΤΟΣ» 
320  ΡΚΙΝΤ: ΡΚΙΝΤ 

330  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

340  ζ$=ΙΝΚΕΥ$:ΙΡ  ζ$=""  ΤΗΕΝ  340 
350  0Ε5 

360  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΙΝΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΣΤΟ  ΧΡΗΣΤΗ» 
370  ΡΚΙΝΤ  «ΝΑ  ΥΠΟΛΟΓΙΣΕΙ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΜΕΤΑΘΕΣΕΩΝ» 

380  ρριντ:ρκιντ:ρκιντ 

390  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΑΝΤΙΚΕΙΜΕΝΩΝ»,  η 

400  ΙΝΡΟΤ  «ΤΙΜΗ  ΤΟΥ  γ  -  ΜΕΓΕΘΟΣ  ΤΗΣ  ΟΜΑΔΑΣ»,  γ 

410  Κ=η:0051)Β  480:ηυιπ=πι 

420  Κ=π-γ:6051)Β  480:<Ιθη=πι 

430  ρθΓΐη$=ηυιη/όθη 

440  ΡΚΙΝΤ :ΡΚΙΝΤ:ΡΡΙΝΤ 

450  ΡΚΙΝΤ  ΑΡΙΘΜΟΣ  ΜΕΤΑΘΕΣΕΩΝ^  »;  ρεηπϊ 

460  ΕΝΘ 

470  ΚΕΜ  Υπορουτίνα  παραγοντικοΰ 
480  πι=1 

490  ΡΟΡ  ϊ  =  1  ΤΟ  Ι< 

500  Γη=ΓΠ*  ϊ 
510  ΝΕΧΤ  ϊ 
520  ΚΕΤϋΚΝ 
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Π64  ΣΥΝΔΥΑΣΜΟΙ 


Αυτό  το  πρόγραμμα  υπολογίζει  τον  αριθμό  των  συνδυασμών  η  αντικειμένων 
από  τα  οποία  λαμβάνονται  γ  κάθε  φορά. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΒΕΜ  Πρόγραμμα  -  Συνδυασμοί 

110  ΜΟΡΕ  1 

120  ΡΒΙΝΤ:ΡΒΙΝΤ 

130  ΡΒΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  .ΥΠΟΛΟΓΙΖΕΙ» 
140  ΡΒΙΝΤ  «ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΣΥΝΔΥΑΣΜΩΝ  η  ΑΝΤΙΚΕΙΜΕΝΩΝ» 


150  ΡΒΙΝΤ  «ΑΠΟ  ΤΑ  ΟΠΟΙΑ  ΛΑΜΒΑΝΟΝΤΑΙ  γ  ΚΑΘΕ  ΦΟΡΑ» 

160  ΡΒΙΝΤ 

170  ΡΒΙΝΤ  «ΓΙΑ  ΠΑΡΑΔΕΙΓΜΑ,  ΕΣΤΩ  ΟΤΙ  ΠΡΕΠΕΙ  ΝΑ  ΔΗΜΙΟΥΡΓΗΣΟΥΜΕ» 
180  ΡΒΙΝΤ  «ΜΙΑ  ΕΠΙΤΡΟΠΗ  ΜΕ  3  ΜΕΛΗ  ΑΠΟ  4  ΥΠΟΨΗΦΙΟΥΣ» 

190  ΡΒΙΝΤ  «ΘΕΛΟΥΜΕ  ΤΩΡΑ  ΝΑ  ΔΟΥΜΕ  ΜΕ  ΠΟΣΟΥΣ  ΤΡΟΠΟΥΣ» 

200  ΡΒΙΝΤ  «ΜΠΟΡΕΙ  ΝΑ  ΣΥΣΤΑΘΕΙ  ΑΥΤΗ  Η  ΕΠΙΤΡΟΠΗ» 

210  ΡΒΙΝΤ: ΡΒΙΝΤ 

220  ΡΒΙΝΤ  «ΥΠΟΘΕΤΟΥΜΕ  ΟΤΙ  ΟΙ  ΥΠΟΨΗΦΙΟΙ  ΟΝΟΜΑΖΟΝΤΑΙ  Α,  Β,  Ο,  &  Ο» 
230  ΡΒΙΝΤ  «ΤΟΤΕ  ΟΙ  ΠΙΘΑΝΟΙ  ΣΥΝΔΥΑΣΜΟΙ  ΘΑ  ΕΙΝΑΙ  ΟΙ  ΕΞΗΣ:» 


240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


ΡΒΙΝΤ 

ΡΒΙΝΤ 

ΡΒΙΝΤ 

ΡΒΙΝΤ 


"ΑΒΟ  ΑΒΰ  Α€Ω  ΒΟΡ" 


.  . . Σ'  ΑΥΤΟ  ΤΟ  ΠΑΡΑΔΕΙΓΜΑ  ΥΠΑΡΧΟΥΝ  4  ΤΡΟΠΟΙ» 

ΡΒΙΝΤ  «ΣΥΝΘΕΣΗΣ  ΤΩΝ  ΜΕΛΩΝ  ΤΗΣ  ΕΠΙΤΡΟΠΗΣ» 

ΡΚ I ΝΤ ’ ΡΚ I ΝΤ 

ΡΒΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=Μ"  ΤΗΕΝ  310 

ει_δ 

ΡΒΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΙΝΕΙ  ΤΗ  ΔΥΝΑΤΟΤΗΤΑ  ΣΤΟ  ΧΡΗΣΤΗ» 


340  ΡΒΙΝΤ  «ΝΑ  ΥΠΟΛΟΓΙΣΕΙ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΣΥΝΔΥΑΣΜΩΝ» 

350  ΡΒΙΝΤ: ΡΒΙΝΤ: ΡΒΙΝΤ 

360  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ  ΑΝΤΙΚΕΙΜΕΝΩΝ»,  η 

370  ΙΝΡ.ϋΤ  «ΤΙΜΗ  ΤΟΥ  γ  -  ΜΕΓΕΘΟΣ  ΤΗΣ  ΟΜΑΔΑΣ»,  γ 

380  Κ=η:605υΒ  470:ηυ<η=ιη 

390  Κ=η-Γ:60$υΒ  470:όβη=π> 


400  ηυιη=ηυΐΓ/όβη 

410  Κ= Γ : 605υΒ  470:ύβη=ιπ 

420  ρθΓΐτ)5=ηυΓτι/υβη 

430  ΡΒΙΝΤ: ΡΒΙΝΤ: ΡΒΙΝΤ 

440  ΡΒΙΝΤ  «ΑΡΙΘΜΟΣ  ΣΥΝΔΥΑΣΜΩΝ=»;  ρεηηδ 

450  ΕΝϋ 

460  ΒΕΜ  Ύπορουτίνα  παραγοντικού 
470  ιτι=  1 

480  Ρ0Β  ΐ  =  1  ΤΟ  Ι< 

490  π)=ιη*ϊ 
500  ΝΕΧΤ  ι 
510  ΒΕΤίΙΒΝ 
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Π65  ΕΛΑΧΙΣΤΑ  ΤΕΤΡΑΓΩΝΑ 


Αυτό  το  πρόγραμμα  εφαρμόζει  τη  μέθοδο  των  ελάχιστων  τετραγώνων  για  να 
υπολογίσει  την  καλύτερη  ευθεία  γραμμή  που  περιγράφει  ένα  σύνολο  δεδομέ¬ 
νων  σημείων. 

Η  εξίσωση  της  ευθείας  είναι  της  μορφής 
Υ=ΜΧ+Β 

και  μόλις  υπολογισθεί  παρουσιάζεται  η  ευθεία  στην  οθόνη. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τις  συντεταγμένες  των  σημείων  στη  μορφή  X,  Υ. 


100  ΚΕΜ  Πρόγραμμα  -  Ελάχιστα  Τετράγωνα 
110  ΜΟΡΕ  1 

120  ίΟΟΑΤΕ  13,4: ΡΚΙΝΤ  «ΕΛΑΧΙΣΤΑ  ΤΕΤΡΑΓΩΝΑ» 

130  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 
140  ΙΝΡυΤ  «ΠΟΣΑ  ΣΗΜΕΙΑ»»,  η 
150  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 
160  ΡΙΜ  χ(η),γ(η) 

170  Ρ0Κ  ί=1  ΤΟ  η 

180  ΙΝΡΙΙΤ;  ΜΧ=",χ(  ι ) :  ΙΝΡΘΤ  "  Υ=",γ(  ϊ  ) 

190  5υιιι.χ=5υΓη.χ+χ(  ϊ ) 

200  5υαι.χ.5ς=5υπι.χ.5ς+χ(  ϊ)*χ(ι) 

210  δυπι.γ=5υιη.γ+χ(  ι ) 

220  5υίη.χγ=$υιη.χγ  +  χ(ι)*γ(ϊ) 

230  ΝΕΧΤ  ϊ 
240  : 

250  ά=η*5υπι.χ.$ρ  -  8υπ).χ*5υηι.χ 

260  ΙΡ  ά=0  ΤΗΕΝ  ΡΚΙΝΤ  «Η  ΠΡΟΣΑΡΜΟΓΗ  ΟΠΟΙΑΣΔΗΠΟΤΕ  ΕΥΘΕΙΑΣ  ΕΙΝΑΙ»» 
: ΡΚΙΝΤ  «ΑΔΥΝΑΤΗ!!!»: ΕΝϋ 
270  : 

280  πι=(η*8υιη.χ/  -  5υιη.χ*5υπι.γ)/ι) 

290  Ρ=5υπ).γ/η  -  Γη*5υΓη.χ/η 
300  : 

310  πΐ3χ.χ=χ(1):ππη.χ=χ(1) 

320  πΐ3χ.γ=γ(  1  ):ιτπη.γ=γ(  1 ) 

330  Ρ0Κ  ΐ=2  ΤΟ  η 

340  ίϊΐθχ  .  χ=ΜΑΧ(π)3χ  .χ,χ(  ι ) ) 

350  ιηϊη.χ=ΜΙΝ(πιιη.χ,χ(ϊ)) 

360  ΓΠ3χ  .χ=ΜΑΧ  (Π3χ  .γ,γ(  ϊ )  ) 

370  πι ι η  ./=ΜΙΝ(Γηίη.χ,>'(  ϊ ) ) 

380  ΝΕΧΤ  ϊ 
390  : 

400  ΜΟϋΕ  2 

410  ΙΡ  πιιη.χ>0  ΤΗΕΝ  ππη.χ=0 

420  ΙΡ  ιηϊη.γ>0  ΤΗΕΝ  Γτπη.χ=0 

430  Γ3η9θ.χ=πΐ3χ.χ-ηιϊπ.χ 

440  Γ3η9θ./=πΐ3χ ,χ-ηη'η.γ 

450  ΚΕΜ  Δεν  θα  γίνει  σχεδίαση  για  αρνητικά  δεδομένα 

460  5€31.θ.χ=640/γ3Π9Θ.χ 


145 


470  5θ3ΐθ.χ=400/Γ3Π9θ.χ 

480  0ΒΙ6ΙΝ  ΑΒ$(ηϊη.χ*δα3ΐθ.χ),ΑΒ5(ιηΐη.χ*5α3ΐθ.χ) 

490  ΜΟνΕ  πηΐη.χ*303ΐθ.χ,0:ΡΚΑυ  πΐ3χ.χ*503ΐθ.χ,0 
500  ΜΟνΕ  0,ππη.γ*$03ΐβ.γ: βΚΑΜ  Ο,πίΒχ^δςεΙθ.γ 
510  : 

520  ΡΟΚ  ϊ=1  ΤΟ  η 

530  ΜΟνΕ  χ(ϊ)*503ΐθ.χ,^{ϊ)*503ΐθ.χ-5 
540  ΟΚΑΜΡ  0,10:Μ0νεΡ  -5,-5:βΚΑΜΚ  10 ,γ 
550  ΝΡΧΤ  ϊ 

560  :  „ 

570  ΚΟνε  γπ  ϊ  η .  χ*5  03ΐθ.Χ/·(πι*ππη.χ  + 

580  ΡΒΑΜ  τη3χ.χ*503ΐθ.χ,(πι*(η3χ.χ  +  &)*$ε3ΐθ.γ 

590  εΟΟΑΤΒ  1,1:ΡΚΙΝΤ  «Η  ΕΞΙΣΩΣΗ  ΤΗΣ  ΕΥΘΕΙΑΣ  ΕΙΝΑΙ  η  Υ=  "πι '  ·  X +  "& 

600  εΝΰ 


Η  γραμμή  είναι  ν=  1.26·Χ+  3.3Β 


Π 66  ΠΑΡΟΥΣΙΑΣΗ  ΑΡΧΕΙΟΥ 


Αυτό  το  πρόγραμμα  μπορεί  να  παρουσιάσει  στην  οθόνη  ή  να  εκτυπώσει  ένα 
αρχείο  που  έχει  αποθηκευτεί  σε  δίσκο  ή  κασέτα.  Η  χρησιμότητα  του  εντοπί¬ 
ζεται  στο  ότι  μπορεί  κανείς  να  ελέγξει  αν  ένα  αρχείο  δεδομένων  έχει  συντα¬ 
χθεί  με  σωστό  τρόπο. 

Σημείωσε  ότι  αρχεία  προγραμμάτων  ΒΑδΙΟ  δεν  είναι  δυνατόν  να  παρουσια- 
σθούν  με  αυτή  τη  μέθοδο. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  και  τρέξε  το  πρόγραμμα 
Ακολούθησε  τις  οδηγίες 


10  ΡΕΜ  Παρουσίαση  Αρχείου 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΡ  0 

50  ΡΕΝ  1 

60  Β0ΡΡΕΡ  1 

70  Μ0ΡΕ  1 

80  ΡΡΙΝΤ  ΤΑΒ(  17)"  ΠΑΡΟΥΣΙΑΣΗ  ΑΡΧΕΙΟΥ 

90  ΡΡΙΝΤ  ΤΑΒ( 17)" - 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΠΑΡΟΥΣΙΑΖΕΙ  ΕΝΑ  ΣΕΙΡΙΑΚΟ  ΑΡΧΕΙΟ» 
120  ΡΡΙΝΤ  «ΣΤΗΝ  ΟΘΟΝΗ  Ή  ΤΟ  ΕΚΤΥΠΩΝΕΙ» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΕΝΑ  ΑΡΧΕΙΟ  ΠΡΟΓΡΑΜΜΑΤΟΣ  ΒΑδΙΟ» 

150  ΡΡΙΝΤ  «ΔΕΝ  ΜΠΟΡΕΙ  ΝΑ  ΠΑΡΟΥΣΙΑΣΘΕΙ  ΜΕ  ΑΥΤΗΝ  ΤΗ  ΜΕΘΟΔΟ» 

160  ΡΡΙΝΤ 

170  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  I  Ή  2  ΓΙΑ  ΝΑ  ΔΙΑΛΕΞΕΙΣ;» 

180  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  ΤΑΒ(8)  «1-ΟΘΟΝΗ» 

200  ΡΡΙΝΤ  ΤΑΒ(8)  «2-ΕΚΤΥΠΩΤΗΣ» 

210  3$=ΙΝΚΕΥ$: I Ρ  3$<>’Τ'  ΑΝΘ  3$<>"2"  ΤΗΕΝ  210 
220  ΙΡ  3$="2"  ΤΗΕΝ  όθνϊε6=8 
230  ΡΡΙΝΤ: ΡΡΙΝΤ 

240  ΡΡΙΝΤ  «ΒΑΛΕ  ΤΟ  ΔΙΣΚΟ  Η  ΤΗΝ  ΚΑΣΕΤΑ  ΠΟΥ  ΠΕΡΙΕΧΕΙ» 

250  ΡΡΙΝΤ «ΤΟ  ΑΡΧΕΙΟ» 

260  ΡΡΙΝΤ 

270  ΙΝΡυΤ  «ΠΟΙΟ  ΕΙΝΑΙ  ΤΟ  ΟΝΟΜΑ  ΤΟΥ  ΑΡΧΕΙΟΥ»;  ίΐ  5 
280  ΙΡ  1_ΕΝ(  ΐ  1$)>8  ΤΗΕΝ  η$=1-ΕΡΤ$(  Π$,8) 


290  : 

300  01_δ 

310  0ΡΕΝΙΝ  Π$ 

320  0ΙΜ  ΐίεπι$(500) 

330  ΡΕΜ  Η  προηγούμενη  γραμμή  καθορίζει  το  μέγιστο  μέγεθος  του  αρχείου. 

340  ΜΗΙί-Ε  Ε0Ρ=0  ΑΝΘ  η<501 
350  :  ΙΝΡυΤ  #9,ϊΐθπι$(η) 

360  :  η=π+1 
370  ΜΕΝΘ 
380  ΟΕΟδΕΙΝ 
390  ΡΡΙΝΤ 

400  ΡΡΙΝΤ  «ΤΟ  ΑΡΧΕΙΟ  ΔΙΑΒΑΣΤΗΚΕ.  ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ» 
410  3$=ΙΝΚΕΥ$: I Ρ  3$=""  ΤΗΕΝ  410 
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420  : 

430  ΜΟΘΕ  2 

440  ΡΟΚ  Ι<=0  ΤΟ  η 

450  :  ΡΚΙΝΤ  #όβνΐοβ,ϊΐβηη$(ΙΟ 

460  :  ΙΡ  άθνϊοβ=0  ΤΗΕΝ  ο=ο+1 

470  :  ΙΡ  ο=20  ΤΗΕΝ  60$υΒ  610 

480  ΝΕΧΤ 

490  : 

500  ΡΚΙΝΤ 

510  ΡΚΙΝΤ  «ΤΕΛΟΣ  ΑΡΧΕΙΟΥ  -  ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ» 
520  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  520 
530  01.5 

540  ΙΝΡυΤ  «ΑΛΛΟ  ΑΡΧΕΙΟ  (γ/η)»;  γ  =$ 

550  ΙΡ  Ι_ΕΡΤ$(1-0ΗΕΚ$(χ$),1)=Ύ’  ΤΗΕΝ  ΚΙΙΝ 
560  ΜΟΘΕ  1 
570  ΕΝΘ 
580  : 

590  : 

600  ΚΕΜ  Πλήρης  οθόνη 
610  ΡΚΙΝΤ 

620  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

630  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  630 

640  ο=0 

650  01.3 

660  ΚΕΤυΚΝ 
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Π67  ΓΥΜΝΑΣΤΙΚΗ 


Αυτό  το  πρόγραμμα  σε  βοηθάει  να  βρίσκεσαι  σε  καλή  φυσική  κατάσταση. 
Προσπάθησε  να  συγχρονισθείς  με  την  οθόνη. 

ΠΡΟΣΟΧΗ  -  Η  εξάσκηση  αυτή  δεν  ενδείκνυται  για  όσους  έχουν  πρόβλημα 
με  την  καρδιά  τους. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


10  ΡΕΜ  Γυμναστική 
20  ΒΟΚΰΕΡ  2 
30  ΡΑΡΕΚ  0 
40  ΙΝΚ  0,26 
50  Μ0ΡΕ  0 
60  ε$=$ΡΑ0Ε$(3) 

70  : 

80  ΡΟΗ  η=0  ΤΟ  11 
90  :  ΙΝΚ  η+1,π 
100  ΝΕΧΤ 
110  : 

120  ΜΗΙΙ_Ε  1_ΕΝ(3$)=0 

130  :  ΡΟΗ  οϊι=248  ΤΟ  251 

140  :  ίΟΟΑΤΕ  1,8 

150  :  ΡΟΗ  π=1  ΤΟ  12  5ΤΕΡ  4 

160  :  ΡΟΗ  Κ=0  ΤΟ  3 

170  :  ΡΕΝ  π+Κ 

180  :  ΡΚΙΝΤ  ε$;0ΗΚ$(  οΡι ) ; 

190  :  ΝΕΧΤ 

200  :  ΡΚΙΝΤ :ΡΚΙΝΤ:ΡΚΙΝΤ 

210  :  ΝΕΧΤ 

220  :  ο%=30+50*ΚΝΡ(  1 ) 

230  :  Ιι%=(252-οΙι)*20+ο% 

240  :  $00Νβ  81,1ι%, 20, 5 

250  :  500ΝΟ  74,ή%/3,20,5 

260  :  ΚΕΕΕΑ5Ε  3 

270  :  ΝΕΧΤ 

280  :  3$=ΙΝΚΕΥ$ 

290  ΜΕΝΡ 
300  : 

310  ΡΕΝ  1 
320  ΜΟϋΕ  1 
330  ΕΝΟ 
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Π68  ΒΙΟΡΥΘΜΟΙ 


Λέγεται  ότι  ο  ανθρώπινος  οργανισμός  έχει  καλές  και  κακές  μέρες,  που  μπο¬ 
ρούν  να  προσδιοριστούν.  Οι  υποστηρικτές  των  βιορυθμών  ισχυρίζονται  ότι 
στη  ζωή  υπάρχουν  τρεις  κύκλοι,  ο  Φυσικός,  ο  Συναισθηματικός  και  ο  Πνευ¬ 
ματικός. 

Αυτό  το  πρόγραμμα  χρησιμοποιείται  για  να  υπολογίζει  τους  βιορυθμούς  κά¬ 
θε  συγκεκριμένου  ανθρώπου  σε  οποιαδήποτε  στιγμή  της  ζωής  του.  Το  πρό¬ 
γραμμα  παρουσιάζει  τους  τρεις  βιορυθμούς  για  μια  περίοδο  ενός  μήνα  περί¬ 
που  από  την  ημέρα  που  ορίζουμε. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Βιορυθμοϊ 
110  ΟΕΡΙΝΤ  ά,ιπ,χ 
120  01.$ 

130  ΡΡΙΝΤ  :  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  .«ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΠΑΡΟΥΣΙΑΖΕΙ  ΤΟΥΣ  ΒΙΟΡΥΘΜΟΥΣ» 

150  ΡΡΙΝΤ  «ΕΝΟΣ  ΑΝΘΡΩΠΟΥ  ΓΙΑ  ΟΠΟΙΟΔΗΠΟΤΕ  ΑΡΙΘΜΟ  ΗΜΕΡΩΝ» 

160  ΡΡΙΝΤ: ΡΚΙΝΤίΡΚΙΝΤ 

170  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΤΟ  ΓΡΗΓΟΡΙΑΝΟ  ΗΜΕΡΟΛΟΓΙΟ» 
180  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  «ΔΩΣΕ  ΤΗΝ  ΗΜΕΡΟΜΗΝΙΑ  ΠΟΥ  ΘΕΛΕΙΣ» 

200  ά1=0:πι1=0:χ1=0 
210  ΜΗΙΕΕ  ά1<1  ΟΡ  ά1>31 
220  ΙΝΡυτ  «ΗΜΕΡΑ  (!-3!)»;  81 
230  ΜΕΝϋ 

240  ΗΗΙΕΕ  πι1<1  0Ρ  πι1>12 
250  ΙΝΡυτ  «ΜΗΝΑΣ  (1-12)»;  ωΐ 
260  ΜΕΝΡ 
270  ΜΗΙίΕ  γΚΙ 

280  ΙΝΡϋΤ  «ΕΤΟΣ  (η.χ.  1985)»;  γΐ 
290  ΜΕΝ0 

300  υά=ά1:πιιη=πι1:χχ=χ1:60$υΒ  720 
310  π  1 =ηπ 
320  : 

330  ΡΡΙΝΤ  :  ΡΡΙΝΤ  «ΔΩΣΕ  ΤΗΝ  ΗΜΕΡΟΜΗΝΙΑ  ΓΕΝΝΗΣΗΣ  ΤΟΥ  ΑΝΘΡΩΠΟΥ» 

340  ά2=0:η2=0: χ2=0 

350  ΜΗ11.Ε  (Ι2<1  0Ρ  ϋ2>31 

360  ΙΝΡυτ  «ΗΜΕΡΑ  (1-31)»;  <12 

370  ΜΕΝΟ 

380  ΜΗ  1 1_Ε  πι2<1  ΟΡ  πι2>12 
390  ΙΝΡυτ  «ΜΗΝΑΣ  (1-12)»;  πι2 
400  ΜΕΝΰ 
410  ΜΗ I  Ι_Ε  γ2<1 

420  ΙΝΡυτ  «ΕΤΟΣ  (π.χ.  1985)»;  γ2 
430  ΜΕΝΡ 

440  δά=<52:πιπι=π)2:χχ-χ2:60$υΒ  720 
450  η2=ηη 

460  63/531 ίνθ=η1-π2 

470  ΙΕ  03γ53  I  ί νθ<1  ΤΗΕΝ  ΡΡΙΝΤ: ΡΡΙΝΤ  «ΜΗΝ  ΚΑΝΕΙΣ  ΑΝΟΗΣΙΕΣ»;  $ΤΟΡ 
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480  ΡΡΙΝΤ 

490  ΡΡΙΝΤ  «ΤΗΝ  ΗΜΕΡΟΜΗΝΙΑ  ΠΟΥ  ΕΞΕΤΑΖΟΥΜΕ,  ΤΟ  ΥΠΟΚΕΙΜΕΝΟ» 

500  ΡΡΙΝΤ  «ΕΙΧΕ  ΗΛΙΚΙΑ»;  όε/ίδΗνε;»  «ΗΜΕΡΩΝ^ 

510  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ»· 

520  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$='·"  ΤΗΕΝ  520 
530  : 

540  Μ0ΘΕ  1 

550  ΜΟνΕ  0,200:  ΟΡΑΗ  639,200,3 

560  ΡΟΡ  6=1  ΤΟ  31 

570  ΜΟνΕ  <3*20,210:  ΘΡΑΜ  <3*20,190 

580  ΝΕΧΤ  (3 

590  : 

600  ΡΕΝ  1:  ΡΡΙΝΤ  «ΦΥΣΙΚΟΣ» 

610  ρ=23:€=1:605ϋΒ  860 

620  ΡΕΝ  2:  ΡΡΙΝΤ  «ΣΥΝΑΙΣΘΗΜΑΤΙΚΟΣ» 

630  ρ=28:€=2:605υΒ  860 

640  ΡΕΝ  3:  ΡΡΙΝΤ  «ΠΝΕΥΜΑΤΙΚΟΣ» 

650  ρ=33:ε=3:605υΒ  860 
660  : 

670  ΡΟΡ  ΐ=1  ΤΟ  6: ΡΡΙΝΤ  :ΝΕΧΤ  ϊ 

680  ΡΚΙΝΤ  «Σ»:  ΡΚΙΝΤ  «ή»;  ΡΡΙΝΤ  «μ»;  ΡΡΙΝΤ  «ε»  ΡΡΙΝΤ  «ρ»;  ΡΡΙΝΤ  «α» 

690  60Τ0  690 
700  : 

710  : 

720  ΡΕΜ  Υπορουτίνα  υπολογισμού  του  αριθμού  των 
730  ΡΕΜ  ημερών  από  την  ημερομηνία  αναφοράς 
740  ΡΕΜ 

750  ΡΕΜ  ΙΝΡυΤδ  :  ΰό,ΓΠΐη,// 

760  ΡΕΜ  ουτρυτ  -  ηη 
770  ΡΕ5Τ0ΡΕ 
780  ΡΟΡ  ϊ  =  1  ΤΟ  πνη 
790  ΡΕΑΘ  <3ΐγ 
800  ΝΕΧΤ  ϊ 

810  ϋΑΤΑ  0,31,59,90,120,151,181,212,243,273,304,334 
820  6ΐ/=6ΐχ  +  <36 

830  ηη=6·ίχ  +  γ/*365  +  ΙΝΤ(///4)  +1  -  ΙΝΤ(/γ/100)  +  ΙΝΤ(χ//400) 
840  ΙΡ  < χυ  ΜΟϋ  4  =0)  ΑΝΘ  <ηπι<3  ΤΗΕΝ  ηη=ηη-1 
850  ΡΕΤυΡΝ 

860  ΡΕΜ  Υπορουτίνα  σχεδιασμού 
870  ΡΕΜ 

880  ΡΕΜ  Σχεδιασμός  κάθε  βιορυθμού 
890  ΡΕΜ  ΙΝΡυΤδ  -  ρ  3η6  ο 

900  ΜΟνΕ  0, I ΝΤ ( 200*5 I Ν(2*ΡΙ*( 63/8 3 I ϊ νβ)/ρ)+200) 

910  ΡΟΡ  χ=0  ΤΟ  640  5ΤΕΡ  2 

920  /= ΙΝΤ ( 200*5 ΙΝ(2*ΡΙ*( 63/331 ϊνε  +  χ/20)/ρ)+200) 

930  ΘΡΑΝ  χ,/,ε 
940  ΝΕΧΤ  χ 
950  ΡΕΤϋΡΝ 
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Π69  ΡΟΥΛΕΤΑ 


Αυτό  το  πρόγραμμα  ίσως  αποδειχθεί  χρήσιμο  βοήθημα  για  την  αύξηση  του 
εισοδήματος  σου.  Η  ρουλέτα  φαντάζει  πιο  όμορφη  όταν  παρουσιάζεται  σε 
μεγάλη  οθόνη  νίάεο. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το'  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  ΡΟΥΛΕΤΑ 
110  ΜΟΡΕ  1 
120  ΒΟΚΟΕΚ  9 
130  ΙΝΚ  0,21: ΙΝΚ  1,8 
140  ΡΕΝ  .1 

150  ΕΟΟΑΤΕ  5,5: ΡΡΙΝΤ  «ΚΑΛΗΣΠΕΡΑ  ΦΙΛΟΙ  ΜΟΥ!» 

160  ΕΟΟΑΤΕ  5,6:  ΡΡΙΝΤ  «ΚΑΛΩΣ  ΗΛΘΑΤΕ  ΣΤΗ  ΡΟΥΛΕΤΑ  του  ΟΡΟ  464» 
170  ΡΕΝ  3 

180  ΕΟΟΑΤΕ  5, 8: ΡΚΙΝΤ  "  ΡΟΥΛΕΤΑ 
190  ΡΕΝ  1 

200  ΕΟΟΑΤΕ  5, 10: ΡΡΙΝΤ  «ΓΙΑΤΙ  ΔΕΝ  ΕΡΧΕΣΘΕ  ΠΙΟ  ΚΟΝΤΑ» 

210  ΕΟΟΑΤΕ  5, 11:  ΡΡΙΝΤ  «ΝΑ  ΔΟΚΙΜΑΣΕΤΕ  ΤΗΝ  ΤΥΧΗ  ΣΑΣ;  ΔΙΑΛΕΞΤΕ» 
220  ΕΟΟΑΤΕ  5,12:  ΡΡΙΝΤ  «  ΕΝΑΝ. ΑΡΙΘΜΟ  ΜΕΤΑΞΥ  1  ΚΑΙ  30» 

230  Ι_ΟΟΑΤΕ  5,13:  ΡΡΙΝΤ  «ΚΑΙ  ΠΟΝΤΑΡΕΤΕ  ΕΠΑΝΩ  ΤΟΥ» 

240  ΡΕΝ  2 

250  ΕΟΟΑΤΕ  5,20: ΡΡΙΝΤ  «ΠΑΤΗΣΤΕ  ΟΠΟΙΟΛΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ» 

: ΡΚΙΝΤ  «ΝΑ  ΞΕΚΙΝΗΣΕΤΕ»; 

260  Α$=ΙΝΚΕΥ$:  ΙΡ  Α$=’,Μ  ΤΗΕΝ  260 
270  ΡΕΜ  ΣΧΕΔΙΑΣΗ  ΡΟΥΛΕΤΑΣ 
280  : 

290  ΜΟΡΕ  2 

300  0ΚΙ6ΙΝ  320,199 

310  Ρ0Κ  1=1  ΤΟ  30 

320  πόνε  0,0 

330  Κ=2*ΡΙ/30*Ι 

340  ΡΡΑΜ  1 50*005 (Κ), 150*51 Ν(Κ) 

350  ΝΕΧΤ  I 

360  ΡΕΝ  1 

370  Ρ0Ρ  Ν=0  ΤΟ  29 

380  Κ=(2*Ν+1 )/30*ΡΙ 

390  ΕΟΟΑΤΕ  (155*005(Κ)+320)/8,25-(155*5ΙΝ(Κ)+199)/16 
400  ΡΡΙΝΤ  Ν+1; 

410  ΝΕΧΤ  Ν 
420  : 

430  ΕΟΟΑΤΕ  1 ,25 :  ΡΚΙΝΤ  «ΠΑΤΗΣΤΕ  ΟΠΟΙΟΛΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  » 

:  ΡΡΙΝΤ «  ΝΑ  ΣΥΝΕΧΙΣΕΤΕ» 

440  Α$=ΙΝΚΕΥ$: ΙΡ  Α$='"·  ΤΗΕΝ  440 
450  ΕΟΟΑΤΕ  1 ,25 : ΡΚΙΝΤ  " 

460  ΡΕΜ  ΧΡΟΝΟΣ  ΠΕΡΙΣΤΡΟΦΗΣ  ΡΟΥΛΕΤΑΣ 
470  Τ=ΤΙΜΕ 

480  Τ1=(ΙΝΤ(ΡΝΡ(2)*20))*300+100 
490  ΕνΕΡΥ  15,1  6051)Β  660 
500  ρ=  10 

510  ΜΗΙΕΕ  ΤΙΜΕ<Τ+Τ1 

520  Α=(ΤΙΜΕ-Τ)/600*ΡΙ 

530  ΜΟνΕ  0,0 

540  ΡΡΙΝΤ  0ΗΡ$(23)+0ΗΡ$( 1 ); 

550  ΡΡΑΜ  1 50*005 ( Α ) ,150*5ΙΝ(Α) 
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560  Μ0\/Ε  0,0 

570  ΟΡΑΗ  1 50*002 (Α),150*$ΙΝ(Α) 

580  ΡΟΡ  ζ=1  ΤΟ  ρ: ΝΕΧΤ  ζ 

590  ρ=ρ+1 

600  ΝΕΝΙ> 

610  ΡΡΙΝΤ  0ΗΡ$(23)+0ΗΡ$(Ο); 

620  ΜΟνΕ  0,0:ΡΡΑΗ  170*005(Α),170*2ΙΝ(Α) 

630  ΜΟνΕ  0,0: βΡΑΜ  170*002(Α+0.01),170*5ΙΝ(Α+0.01) 
640  ΙΟΟΑΤΕ  1,1 
650  ΕΝΟ 

660  ΡΡΙΝΤ  0ΗΡ$(7); 

670  ΡΕΤυΡΝ 


29301 


154 


Π70  ΑΓΩΝΑΣ  ΣΚΥΛΩΝ 


Με  αυτό  το  πρόγραμμα  σε  ξεναγούμε  στην  πίστα  αγώνων  με  σκύλους  του 
Αγπ51γ3<1  Δεν  θα  ήταν  άσχημη  ιδέα,  αντίθετα  θα  μπορούσε  να  αποβεί  προσο¬ 
δοφόρα,  αν  έπαιζες  το  ρόλο  του  μπουκμέϊκερ  στη  διάρκεια  του  αγώνα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Αγώνας  σκύλων 

110  οι_$ 

120  5ΥΜΒ0Ε  244,4,6,132,252,124,202,169,169 
130  5ΥΜΒ0Ε  245,224,224,224,224,224,224,224,224 
140  5ΥΜΒΌΕ  246,255,255,255,224,224,224,224,224 
150  ΒΙ«  ά( 10),ε( 10),ρ( 10) 

160  ΡΕΜ  Επιλογή  χρωμάτων  για  τους  σκύλους 
170  ΜΟϋΕ  1 

180  Ρ0Κ  ϊ  =  1  ΤΟ  10: ε( ϊ )  =  ϊ  + 1 : ΝΕΧΤ  ΐ 

190  ΕΟΟΑΤΕ  14,1  :  ΡΡΙΝΤ  «ΒΡΑΔΙΑ  ΑΓΩΝΑ  ΣΚΥΛΩΝ» 

200  ΕΟΟΑΤΕ  10,4  :  ΡΡΙΝΤ  «ΚΑΛΗΣΠΕΡΑ  ΦΙΛΟΙ!» 

210  ΕΟΟΑΤΕ  12,6  :  ΡΡΙΝΤ  «ΚΑΛΩΣ  ΗΛΘΑΤΕ  ΣΤΗΝ  ΠΙΣΤΑ» 

220  ΕΟΟΑΤΕ  11,8  :  ΡΡΙΝΤ  «ΑΓΩΝΩΝ  ΜΕ  ΣΚΥΛΟΥΣ  ΤΟΥ  ΟΡΟ  464» 

230  ΕΟΟΑΤΕ  10,12  :  ΡΡΙΝΤ  «ΑΠΟΨΕ  ΘΑ  ΠΡΑΓΜΑΤΟΠΟΙΗΘΕΙ  ΑΓΩΝΑΣ» 
240  ΕΟΟΑΤΕ  10,14  :  ΡΡΙΝΤ  «ΜΕ  ΔΕΚΑ  ΣΚΥΛΟΥΣ» 

250  ΕΟΟΑΤΕ  10,20  :  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟ  ΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ·> 

:  ΡΡΙΝΤ  «ΝΑ  ΞΕΚΙΝΗΣΕΙΣ» 

260  ζ$=ΙΝΚΕΥ$: I Ρ  ζ$='"'  ΤΗΕΝ  260 
270  Μ0ΘΕ  0 

280  ΡΕΜ  τοποθέτηση  των  παγίδων 
290  Ρ0Ρ  ϊ=1  ΤΟ  10 
300  ΡΕΝ  ι+1 

310  ΕΟΘΑΤΕ  1, 2*ϊ+2  :  ΡΡΙΝΤ  ί-1 

320  ΕΟΘΑΤΕ  3, 2*ϊ+2  :  ΡΡΙΝΤ  0ΗΡ$(245) 

330  ΝΕΧΤ  ϊ 

340  ΕΟΟΑΤΕ  1,24  :  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟ 4ΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  « 
:  ΡΡΙΝΤ  «ΞΕΚΙΝΗΣΕΙΣ»; 

350  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  350 
360  ΕΟΟΑΤΕ  1,24  :  ΡΡΙΝΤ  " 

370  ΡΟΡ  ϊ=1  ΤΟ  10 
380  ΡΕΝ  ΐ+1 

390  ΕΟΟΑΤΕ  3, 2*ι+2  :  ΡΡΙΝΤ  0ΗΡ$(246); 

400  ό(ΐ)=4 

410  ΡΕΝ  ο( ΐ )  :  ΕΟΟΑΤΕ  ό(ΐ),2*ϊ+2  :  ΡΡΙΝΤ  0ΗΡ$(244) 

420  ΝΕΧΤ  ΐ 

430  ί  ΐ  η 5=0 

440  ΜΗΙΕΕ  1ίΠ5<10 

450  90ί=1 

460  ΜΗΙΕΕ  9οί  =  1 

470  ρ=ΙΝΤ( ΡΝΘ< 10)* 10+1 ) :9οΙ=0 

480  ΡΟΡ  ί=1  ΤΟ  10 

490  ΙΡ  ρ=ρ ( ΐ )  ΤΗΕΝ  9οΐ=1 

500  ΝΕΧΤ  ί 

510  νΐΕΝΘ 

520  ΕΟΟΑΤΕ  0( ρ) ,2*ρ+2: ΡΡΙΝΤ  "  ";:ΡΕΝ  ε(ρ):ΡΡΙΝΤ  ΘΗΡ3(244) 
530  8(ρ)=ά(ρ)+1 
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540  ΙΡ  ε)(ρ)=19  ΤΗΕΝ  ρ( ί ΪΠ5+ 1 )=ρ: I ΐη$=ί ΪΠ3+1:ΡΚΙΝΤ  0ΗΚ$(7) 

550  ΙΡ  ΡΪΠ5=0  ΤΗΕΝ  60$υΒ  710  ΕΙ_3Ε  ΕΟΟΑΤΕ  1,1:ΡΚΙΝΤ 
560  ΜΕΝΟ 

570  ΕΟΟΑΤΕ  1,1  :  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΔΕΙΣ  ΤΑ 
:  ΡΚΙΝΤ  «ΑΠΟΤΕΛΕΣΜΑΤΑ» 

580  ζ$=ΙΝΚΕΥ$:  ΙΡ  ΤΗΕΝ  580 

590  ΜΟβΕ  1:ΡΕΝ  1 
600  ρριντ:ρκιντ 

610  ΡΚΙΝΤ  “ΑΠΟΤΕΛΕΣΜΑΤΑ  ΑΓΩΝΑ: -'.ΡΚΙΝΤ 

620  ΡΚΙΝΤ  «ΠΡΩΤΟΣ  -  »;  ρ(1)  -  1 

630  ΡΚΙΝΤ  «ΔΕΥΤΕΡΟΣ  -  »;  ρ(2)  -  1 

640  ΡΚΙΝΤ  «ΤΡΙΤΟΣ  -  »\ρ  (3)  -  1 

650  ΡΚΙΝΤ 

660  ΡΚΙΝΤ  «Η  ΣΕΙΡΑ  ΤΩΝ  ΥΠΟΛΟΙΠΩΝ  ΕΙΝΑΙ  Η  ΕΞΗΣ:» 

670  ΡΟΚ  η=4  ΤΟ  10 
680  ΡΚΙΝΤ  «ΣΚΥΛΟΣ»;  ρ  (η)  -  1 
690  ΝΕΧΤ  η 
700  ΕΝβ 

710  ΡΕΜ  Ρουτίνα  υπόδειξης  του  πρώτου 

720  1ΪΓ5ΐ=0 

730  ΡΟΚ  Χ=1  ΤΟ  10 

740  ΙΡ  οΚΚ)>(1(ί  ΪΓ8ί)  ΤΗΕΝ  1ΪΓ3ΐ=Ι< 

750  ΝΕΧΤ  X 

760  ΕΟΟΑΤΕ  1,1  :  ΡΚΙΝΤ  «Ο  ΣΚΥΛΟΣ»;  Πγχι  -  1;  ΕΙΝΑΙ  ΠΡΩΤΟΣ» 

770  ΚΕΤΟΡΝ 
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Π71  ΑΝΑΚΑΤΕΜΑ  ΤΡΑΠΟΥΛΑΣ 


Αυτό  το  πρόγραμμα  ανακατεύει  τα  χαρτιά  μιας  τράπουλας  πάνω  στην  οθόνη. 
Μπορείτε  εύκολα  να  φανταστείτε  αυτό  το  πρόγραμμα  σαν  πυρήνα  οποιουδή- 
ποτε  παιγνιδιού  που  σχετίζεται  με  χαρτιά. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100  ΡΕΜ  Πρόγραμμα  -  Ανακάτεμα  Τράπουλας 
110  α$:ΐΝΚ  1,3: ΙΝΚ  2,0:ΙΝΚ  0,9 
120  δΥΜΒΟί  244,54,127,127,127,62,28,8,0 
130  δΥΜΒΟί  245,8,28,28,107,127,107,8,28 
140  δΥΜΒΟί  246,8,28,62,127,62,28,8,0 
150  δΥΜΒΟί  247,8,28,62,127,127,127,28,62 
160  Ρ$=0ΗΡ$( 244) 

170  ε$=0ΗΡ$(245) 

180  ε)$=0ΗΚ$(246) 

190  ε$=0ΗΡ$(247) 

200  ρ3εΙ<$=”" 

210  ίΐε3Γΐ$  =  "" 

220  εΙυβ$="” 

230  ε1ΐ3πιειηε1$="" 

240  ερ3άε$="" 

250  Ρ3ηά1$="" 

260  Ρΐ3πεΙ2$="" 

270  ή3Πά3$='"’ 

280  Ρ3ηά4$="" 

290  $ιπ ΐ$=0β3Γΐ$: χ$=0$ 

300  ΟΟδίΙΒ  680:  063Γΐ$=5υϊΐ$ 

310  ευϊτ$=εΙυΡ$:χ$=ε$ 

320  60δ0Β  680:εΙυύ$=ευϊτ$ 

330  $ιπΐ$=άΐ 3πιοη£)$: χ$=Ρ$ 

340  ΟΟδΙΙΒ  680:Ρϊ3ΐηοθ(ί$=5ΐηΐ$ 

350  ειπΐ$=ερ3άβ$:χ$=ε$ 

360  δΟδΙΙΒ  680:ερ3ε)ε$=ευίί$ 

370  ρ3ςΚ$=063Γτ$+ε Ιυό$+άϊ3Πΐοηά$+5ρ3Ρθ$ 

380  : 

390  : 

400  ίΟΟΑΤΕ  15, 10:ΡΡΙΝΤ  «ΑΝΑΚΑΤΕΜΑ»; 

410  είιιιίί ίεά$="" 

420  Ρ0Ρ  ϊ=1  ΤΟ  50 
430  ΡΡΙΝΤ 

440  ρ=ΙΝΤ(ΡΝΟ(10)*(53-ι)+1)*2-1 

450  εΟυί  1  Ιθά$=5θυ1ί  Ιεά$+ΜΙΡ$(ρ3οΙ<$,ρ,2) 

460  ρ3εΚ$=ίΕΡΤ$(ρ3εΚ$,ρ-1 )  +ΜΙ0$(ρ3ελ$,ρ+2) 
470  ΝΕΧΤ  ι 

480  είιυί  ί  Ιεά$=ε1ιυί  ΐ  Ιε<1$+ρ3εΙ<$ 

490  Ρ0Ρ  ϊ=1  ΤΟ  13 

500  &3θΡ1$=ϊΐ3θΡ1$+ίΕΡΤ$(5ΐιυίηεά$,2) 

510  εϊιυίί  Ιεά$=ΜΙΡ$(ε1ιυΐΡΙθΡ$,3) 

520  1ΐ3θΡ2$=ίΐ3ης)2$+ίΕΡΤ$(  είιυΗ  Ιεά$,2) 

530  εΐιυίί  ΙθΡ$=ΜΙΡ$(είιυί  ί  1εό$,3) 

540  ίΐ3ηά3$=ίΐ3ηό3$+ίΕΡΤ$(  εΐιυί  ί  1εΰ$,2) 

550  είιιιί  ί  ΙεΡ5=ΜΙ0$(  είιυί  ί  1εϋ$,3) 

560  Ρ3ηά4$=ίΐ3ηά4$+ίΕΡΤ$(εΡυ1Πεά$,2) 

570  εΡιυίί  Ιεά$=ΜΙΡ$(εΙιυΗ  ΙεΡ$,3) 
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580  ΝΕΧΤ  ί 
590  ΡΙΜ  χ(4) 

600  01.5 

610  Ιΐ3ηά$=1ΐ3ηοΙ1$: χ=14:γ=1 : 6051ΙΒ  760 
620  ή3ηϋ$=ίΐ3ηε)2$:χ=5:>'=8:δ05υΒ  760 
630  Ιΐ3ης)$=ίΐ3η£ΐ3$:χ=14:χ=16:605υΒ  760 
640  Ιΐ3ηεΙ$=ΐΊ3η(14$:χ=28:>'=8:605υΒ  760 
650  ίΟΟΑΤΕ  1,23 
660  ΕΝΡ 
670  : 

680  ΒΕΜ  Ρουτίνα  μοιράσματος  χαρτιών 
690  ΕΟΒ  ϊ=2  ΤΟ  9 

700  5υϊΐ$=$υϊη+ΒΙ6ΗΤ$(5ΤΒ$(ϊ),1)+χ$ 

710  ΝΕΧΤ  ϊ 

720  ευ  ϊ  ΐ$="Α"+χ$+5υ  ΐί$+"Τ"+χ$+"ά',+χ$+”0”+χ$+"Κ”+χ 
730  ΒΕΤΙΙΒΝ 
740  : 

750  : 

760  ΒΕΜ  Ρουτίνα  εμφάνισης  των  χαρτιών  στην  οθόνη 
770  χ(1)=χ:χ(2)=χ:χ(3)=χ:χ(4)=χ 
780  ΕΟΒ  ϊ=1  ΤΟ  13 
790  03Γε1$=ΜΙΡ$(  ίΐ3πτ1$,  1*2-1 ,2) 

800  ΙΕ  ΒΙ6ΗΤ$( ςθΓτΙί,  1  )=1ι$  ΟΒ  ΒΙ6ΗΤ$(θ3Γϋ$,1  )=ά$ 
ΤΗΕΝ  ΡΕΝ  1  ΕΕ5Ε  ΡΕΝ  2 
810  ζ=Α50(ΒΙ6ΗΤ$(θ3Γί)$,1))-243 

820  ΕΟΟΑΤΕ  χ(ζ),χ+ζ:ΡΒΙΝΤ  α3Γϋ$; 

830  χ(ζ)=χ(ζ)+2 

840  ΝΕΧΤ  ί 
850  ΒΕΤίΙΒΝ 
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Π72  ΜΑΓΙΚΟΣ  ΠΙΝΑΚΑΣ 


Αυτό  το  πρόγραμμα  βασίζεται  σε  μια  ενδιαφέρουσα  ιδέα  που  παρουσιάσθη- 
κε  στο  βιβλίο  «Μ3ΐΗεπΐ3ΐ!02ΐ  Ριιζζίεε  3ΐκΙ  ϋίνετεΐοηδ»,  (Βείΐ,  1964),  του  Μ3γ- 
Ιΐη  θ3Γ0εηεΓ. 

Το  πρόγραμμα  δημιουργεί  ένα  πίνακα  που  ενώ  δεν  είναι  μαγικό  τετράγωνο 
παρουσιάζει  ορισμένες  ενδιαφέρουσες  ιδιότητες. 

Ανακαλύψαμε  πως  είναι  ένα  εντυπωσιακό  τρύκ  για  τους  φίλους  σου  ακόμη 
και  αν  σχεδιάσεις  τον  πίνακα  πάνω  σε  ένα  κομμάτι  χαρτί.  Η  βασική  ιδέα  εί¬ 
ναι  μάλλον  απλή.  Προσπάθησε  να  την  καταλάβεις. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Μαγικός  Πίνακας 

110  α$ 

120  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΗΜΙΟΥΡΓΕΙ  ΕΝΑ  ΤΕΤΡΑΓΩΝΙΚΟ  ΠΙΝΑΚΑ» 
130  ΡΚΙΝΤ  «ΜΕ  ΤΗΝ  ΕΞΗΣ  ΕΝΔΙΑΦΕΡΟΥΣΑ  ΙΔΙΟΤΗΤΑ:» 

140  ΡΚΙΝΤ 

150  ΡΚΙΝΤ  «ΚΑΛΕΙΣΘΕ  ΝΑ  ΔΙΑΛΕΞΕΤΕ  ΕΝΑΝ  ΑΡΙΘΜΟ  ΑΠΟ  ΤΟΝ» 

160  ΡΚΙΝΤ  -.ΠΙΝΑΚΑ.  ΣΤΗ  ΣΥΝΕΧΕΙΑ  ΔΙΝΕΤΕ  ΣΤΟΝ  ΥΠΟΛΟΓΙΣΤΗ  ΤΗ  ΣΤΗΛΗ» 
170  ΡΚΙΝΤ  «ΚΑΙ  ΤΗ  ΓΡΑΜΜΗ  ΣΤΙΣ  ΟΠΟΙΕΣ  ΒΡΙΣΚΕΤΑΙ  Ο  ΑΡΙΘΜΟΣ.  ΚΑΙ» 

180  ΡΚΙΝΤ  «Ο  ΥΠΟΛΟΓΙΣΤΗΣ  ΔΕΣΜΕΥΕΙ  ΟΛΟΥΣ  ΤΟΥΣ  ΑΛΛΟΥΣ  ΑΡΙΘΜΟΥΣ  Σ'» 
190  ΡΚΙΝΤ  «ΑΥΤΗ  ΤΗ  ΓΡΑΜΜΗ  ΚΑΙ  ΣΤΗΛΗ.  ΑΥΤΟ  ΣΥΝΕΧΙΖΕΤΑΙ  ΜΕΧΡΙΣ» 

200  ΡΚΙΝΤ «ΟΤΟΥ  ΜΕΙΝΕΙ  ΜΟΝΟ  ΕΝΑΣ  ΑΡΙΘΜΟΣ» 

210  ρκιντ:ρκιντ:ρκιντ 

220  ΡΚΙΝΤ  «ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΤΟ  ΑΘΡΟΙΣΜΑ  ΤΩΝ  ΑΡΙΘΜΩΝ» 

230  ΡΚΙΝΤ  «ΠΑΡΑΜΕΝΕΙ  ΤΟ  ΙΔΙΟ  ΜΕ  ΕΚΕΙΝΟ  ΤΟΥ» 

240  ΡΚΙΝΤ  «ΚΑΤΩ  ΜΕΡΟΥΣ  ΤΗΣ  ΟΘΟΝΗΣ» 

250  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

260  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

270  ζ$=ΙΝΚΕΥ$:ΐΡ  Σί^"··  ΤΗΕΝ  270 
280  01.5 

290  ΡΙΜ  χ(5,2) 

300  Ρ0Κ  ΐ=1  ΤΟ  5 

310  χ(ι,1)=ΙΝΤ  <  ΚΝ0 ( 10)*30+1 ) 

320  χ( ί,2)=ΙΝΤ(ΚΝΟ(10)*30+1) 

330  5υπι=$υπι+χ(  ϊ,1)+χ(  ϊ,2) 

340  ΝΕΧΤ  ι 

350  0ΙΜ  3(5,5),Γοω(5),εοΙϋΓηπ(5) 

360  ΰΕΡ  ΡΝρ12(3)=ΚΙ6ΗΤ$("  ’’+5ΤΚ$(3),3) 

370  ΡΚΙΝΤ  ’’  ΜΑΓΙΚΟΣ  ΠΙΝΑΚΑΣ 

380  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

390  Ρ0Κ  ϊ=1  ΤΟ  5 

400  Ρ0Κ  ϊ  =  1  ΤΟ  5 

410  3(  ϊ,  ΐ  )=χ(  ϊ,2)  +  χ(  3/·1) 

420  ΡΚΙΝΤ  ΡΝρΙ$(3(ϊ,ΐ)); 

430  ΝΕΧΤ  ί 
440  ΡΚΙΝΤ 
450  ΝΕΧΤ  ϊ 
460  : 
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470  5$="μ 

480  ΡΟΚ  3  =  1  ΤΟ  5  _ _ 

490  ίΟΟΑΤΕ  1,20:ΡΚΙΜΤ  “ΑΘΡ0ΙΣΜΑ=  >>511Γη 

500  1_00 ΑΤΕ  1,15:ΙΝΡΙΙΤ  «ΓΡΑΜΜΗ=_»;  γ 

510  ίΟΟΑΤΕ  1,16:ΐΝΡϋΤ  «ΣΤΗΛΗ=  »;  ο 

520  ΙΡ  γοκ(γ)>0  ΟΚ  οοιυτηη(ς)>0  ΤΗΕΝ  500 
530  Γον/(Γ)  =  1:€οΙυηιη(ε)  =  1 

540  ΡΟΚ  ΐ=1  ΤΟ  5 

550  ίΟΟΑΤΕ  1*3-2, 4+γ : ΡΚΙΝΤ  "  .  Μ 

560  ίΟΟΑΤΕ  3*<:-2,4-Μ:  ΡΚΙΝΤ  "  .  " 

570  ΝΕΧΤ  ϊ 

580  ίΟΟΑΤΕ  20,4+γ:ΡΚΙΝΤ  3(γ,ο) 

590  5$=5$+"+"+5ΤΡ$(3(γ,ο)) 

600  ΝΕΧΤ  3 

610  ίΟΟΑΤΕ  4,21:  ΡΚΙΝΤ  ,,=',ΜΙΟ$(  5$, 2) 

620  ΕΝΡ 


Άθροισμα  =  91 
Γραμμή  =?2 
Στήλη  =74 
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Π73  ΚΩΔΙΚΟΠΟΙΗΤΗΣ 


Με  το  πρόγραμμα  αυτό  μπορείς  να  κωδικοποιήσεις  ένα  απόρρητο  μήνυμα. 
Το  σύστημα  που  χρησιμοποιείται  για  την  κωδικοποίηση  είναι  πολύ  απλό. 
Εσύ  πρέπει  να  ορίσεις  μια  λέξη  κλειδί,  οι  χαρακτήρες  της  οποίας  χρησιμο¬ 
ποιούνται  για  να  υποκαταστήσουν  τους  χαρακτήρες  του  απόρρητου  μηνύμα¬ 
τος.  Το  πρόγραμμα  εκμεταλλεύεται  όλους  τους  χαρακτήρες  του  Αιχιείταίΐ, 
που  μπορούν  να  παρουσιασθούν  στην  οθόνη,  ώστε  να  μπορούν  να  κωδικο- 
ποιηθούν  και  χαρακτήρες  όπως  το  διάστημα,  το  κόμμα,  η  τελεία  κ.λπ. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Κωδικοποιητής 

110  ΡΙΜ  οΗδθΐ(Ζ5),οη3Γ3εΐβΓ5(255), οοόθ(255) 

120  01_5 

130  ΡΡΙΝΤ  :ΡΡΙΝΤ:ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙ  ΝΑ  ΧΡΗΣΙΜΟΠΟΙΗΘΕΙ  ΓΙΑ  ΝΑ» 

:  Ρ  Ρ I ΝΤ  «ΔΗΜΙΟΥΡΓΗΣΕΙ» 

150  ΡΡΙΝΤ  «ΜΙΑ  ΚΩΔΙΚΟΠΟΙΗΜΕΝΗ  ΜΟΡΦΗ  ΕΝΟΣ  ΑΠΟΡΡΗΤΟΥ  ΜΗΝΥΜΑΤΟΣ» 
160  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΒΑΣΙΖΕΙ  ΤΗΝ  ΚΩΔΙΚΟΠΟΙΗΣΗ  ΣΕ  ΜΙΑ  ΛΕΞΗ  -  » 

170  ΡΡΙΝΤ  «ΚΛΕΙΔΙ  ΠΟΥ  ΠΡΕΠΕΙ  ΝΑ  ΤΟΥ  ΟΡΙΣΕΙΣ» 

180  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 
200  : 

210  ΐ=0 
220  ΜΗΙΓΕ  1=0 

230  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΟ  ΜΗΝΥΜΑ  ΣΟΥ» 

240  ΡΕΝ  0 

250  ΓΙΝΕ  ΙΝΡυΤ  π>β5539θ$ 

260  ΡΕΝ  2 

270  ΡΡΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΔΕΙΣ  ΤΟ  ΜΗΝΥΜΑ;» 

280  6051ΙΒ  760 

290  ΙΕ  ί=1  ΤΗΕΝ  ΡΡΙΝΤ  πιβ5539θ$ 

300  ΡΡΙΝΤ  «ΕΙΝΑΙ  ΣΩΣΤΟ  ΤΟ  ΜΗΝΥΜΑ  » 

310  60δυΒ  760 
320  ΗΕΝϋ 
330  : 

340  0Ι_5 
350  ΐ=0 
360  ΜΗΙΓΕ  1=0 

370  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΟΡΙΣΕ  ΤΗ  ΛΕΞΗ  -  ΚΩΔΙΚΟ  ΣΟΥ» 

380  ΡΕΝ  0 

390  ΓΙΝΕ  ΙΝΡϋΤ  εοάθ$ 

400  ΡΕΝ  2 

410  ΡΡΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΔΕΙΣ  ΤΗ  ΛΕΞΗ  -  ΚΩΔΙΚΟ  ΣΟΥ;» 

420  ΟΟδϋΒ  760 

430  ΙΕ  ί=1  ΤΗΕΝ  ΡΡΙΝΤ  εο(1β$ 

440  ΡΡΙΝΤ  «Είναι  σωστή  η  λέξη  -  κωδικός;» 

450  60δΙΙΒ  760 

460  ΜΕΝ0 
470  : 

480  ΟΓδ 
490  : 
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500  ΡΟΡ  1  =  1  ΤΟ  Ι_ΕΝ(ςοάθ$) 

510  οίίδθΚ  ί)=Α5€(ΜΙϋ$<οοοΙβ5,ι,1 )  )-32 
520  ΝΕΧΤ  1 
530  : 

540  ΡΟΡ  ι=1  ΤΟ  ίΕΝ(ηθ$539β$> 

550  θΗ3Γ3ςΐθΓ${  ϊ  )=Α50(ΜΙ0$(ΙΠΘ8539€$,  1,1)  )-32 
560  ΝΕΧΤ  1 
570  : 

580  ΡΕΜ  Ρουτίνα  κωδικοποίησης 
590  ν/οΓάί3"" 

600  ΐ=0 

610  ΡΟΡ  1  =  1  ΤΟ  1.ΕΝ(ΓΠβ5539β5) 

620  ςοϋβ(  1  )  =  (οίΐ3Γ3α1:θΓ5(  ι  )+οί  ί  5θΐ  ( 3  +  1 ) )  Μ00  93 

630  ν/οΓ(1$=ν/οπ1$+0ΗΡ$(  ςο()θ(  1  )  +  32) 

640  3=(ί+1)  ΜΟΰ  ΕΕΝίοοάβί) 

650  ΝΕΧΤ  ι 
660  : 

670  ΡΡΙΝΤ  “ΤΟ  ΚΩΔΙΚΟΠΟΙΗΜΕΝΟ  ΜΗΝΥΜΑ  ΣΟΥ  ΕΙΝΑΙ  ΤΟ  ΕΞΗΣ:». 

680  ΡΡΙΝΤ  ν/οΓάί 

690  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 

700  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟ  ΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΚΑΘΑΡΙΣΕΙΣ  ΤΗΝ»» 
:  ΡΡΙΝΤ  «ΟΘΟΝΗ.» 

710  3$=ΙΝΚΕΥ$: ΙΡ  3$=’"'  ΤΗΕΝ  710 
720  015 
730  ΕΝΰ 
740  : 

750  : 

760  ΡΕΜ  Υπορουτίνα  ελέγχου  Υ/Ν 

770  ΡΕΜ  :  Η  ρουτίνα  ορίζει  ί=1  αν  πατήσεις  Υ  (ναι)  και 

780  ΡΕΜ  (=0  αν  πατήσεις  Ν  (όχι) 

790  ί ιη=0 
800  1/ΗΙΕΕ  I  ιη=0 

810  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  810 
820  ΙΡ  3$="Υ"  ΟΡ  3$="γ"  ΤΗΕΝ  1=1: ί  ίη=1 

830  ΙΡ  3$="Ν"  ΟΡ  3$="π"  ΤΗΕΝ  1=0:ί1η=1 

840  ΜΕΝΟ 
850  ΡΕΤϋΡΝ 
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Π74  ΑΠΟΚΩΔΙΚΟΠΟΙΗΤΗΣ 

Αυτό  το  πρόγραμμα  μπορεί  να  χρησιμοποιηθεί  για  να  αποκωδικοποιήσει  το 
απόρρητο  μήνυμα  που  κωδικοποιήθηκε  από  το  προηγούμενο  πρόγραμμα. 
Για  να  βρεις  το  αρχικό  μήνυμα  πρέπει  να  γνωρίζεις  το  κωδικοποιημένο  και 
τη  λέξη  κλειδί. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  -  Αποκωδικοποιητής 

110  ύΙΜ  οίίδθΐ(25),οδ3Γ3θΐ€Γ5(Ζ55),αοί)ε(255) 

120  01.5 

130  ΡΡΙΝΤ  : ΡΡΙΝΤ: ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΜΕ  ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙΣ  ΝΑ  ΠΑΡΕΙΣ» 

150  ΡΡΙΝΤ  «ΤΗΝ  ΑΠΟΚΩΛΙΚΟΠΟΙΗΜΕΝΗ  ΜΟΡΦΗ  ΕΝΟΣ  ΑΠΟΡΡΗΤΟΥ» 

:  ΡΡΙΝΤ  «ΜΗΝΥΜΑΤΟΣ» 

160  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΒΑΣΙΖΕΙ  ΤΗΝ  ΑΠΟΚΩΔΙΚΟΠΟΙΗΣΗ  ΤΟΥ  ΣΕ  ΜΙΑ» 
170  ΡΡΙΝΤ  «ΛΕΞΗ  -  ΚΛΕΙΔΙ  ΠΟΥ  ΟΡΙΖΕΙΣ». 

30  ΡΡΙΝΤ 

1 90  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 
200  : 

210  ΐ=0 
220  ΗΗΙΕΕ  ΐ=0 

230  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΟ  ΚΩΔΙΚΟΠΟΙΗΜΕΝΟ 
:  ΡΡΙΝΤ  «ΣΟΥ  ΜΗΝΥΜΑ» 

240  ΡΕΝ  0 

250  Ι_ΙΝΕ  ΙΝΡυΤ  πιεδ339θ$ 

260  ΡΕΝ  2 

270  ΡΡΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΔΕΙΣ  ΤΟ  ΜΗΝΥΜΑ  ΣΟΥ;» 

280  6051ΙΒ  770 

290  ΙΡ  ΐ  =  1  ΤΗΕΝ  ΡΡΙΝΤ  πΐθ3339θ$ 

300  ΡΡΙΝΤ  «ΕΙΝΑΙ  ΣΩΣΤΟ  ΤΟ  ΜΗΝΥΜΑ;» 

310  605118  770 

320  ΜΕΝΩ 
330  : 

340  01.5 
350  ΐ=0 
360  ΜΗ I  Ι_Ε  ΐ=0 

370  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΟΡΙΣΕ  ΤΗ  ΛΕΞΗ  -  ΚΩΔΙΚΟ  ΣΟΥ» 

380  ΡΕΝ  0 

390  ΓΙΝΕ  ΙΝΡυΤ  εοόεί 
400  ΡΕΝ  2 

410  ΡΡΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΔΕΙΣ  ΤΗ  ΛΕΞΗ  -  ΚΩΔΙΚΟ  ΣΟΥ;» 

420  6051ΙΒ  770 

430  ΙΡ  ΐ=1  ΤΗΕΝ  ΡΡΙΝΤ  ςοθε$ 

440  ΡΡΙΝΤ  «ΕΙΝΑΙ  ΣΩΣΤΗ  Η  ΛΕΞΗ  -  ΚΩΔΙΚΟΣ;» 

450  60$υΒ  770 

460  ΗΕΝ0 
470  : 

480  015 
490  : 

500  Ρ0Κ  ϊ  =  1  ΤΟ  1_ΕΝ( εοόεί) 

510  οίίδθίΐ ϊ)=Α50(ΜΙβ${οοόε$,ι,1))-Δ2 
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520  ΝΕΧΤ  ΐ 
530  : 

540  ΡΟΚ  ΐ  =  1  ΤΟ  ΙΕΝ(ιτΐθ5δ39ε$) 

550  ς  ή3Γ  30ΐθΓ  5 ( ΐ )=Α30 (ΜΪΡ$([πε5539β$, ΐ ,1 ) )-32 

560  ΝΕΧΤ  ΐ 
570  : 

580  ΚΕΜ  Ρουτίνα  αποκωδικοποίησης 
590  ΜθΓϋ$="" 

600  )=0 

610  ΡΟΚ  ϊ  =  1  ΤΟ  ΙΕΝ(ηΐθ5δ39θ$) 

620  οοε)θ(  ι  )  =  (οίΐ3Γ3ςΐβΓδ(  ϊ  )-οί  ί5βΐ(  ί  +  1 ) )  ΜΟΒ  93 

630  ΙΡ  ςοάβΠΚΟ  ΤΗΕΝ  ςοάθ(  ϊ  )=93+εοςΙθ(  ϊ ) 

640  Μθπϊ$=ΜθΓ£)$+€ΗΚ$(ςο^θ(  ϊ  )+32) 

650  ί  =  (:  +  1)  ΜΟΒ  Ι_ΕΝ(ςοϋβ$) 

660  ΝΕΧΤ  ϊ 
670  : 

680  ΡΚΙΝΤ  «ΤΟ  ΚίΤΔΙΚΟΠΟΙΗΜΕΝΟ  ΜΗΝΥΜΑ  ΣΟΥ  ΕΙΝΑΙ  ΤΟ  ΕΞΗΣ:» 
690  ΡΚΙΝΤ  ν/0Γ£ΐ$ 

700  ΡΚΙΝΤ  :  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

710  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΟΠΟΙΟΔΗΠΟΤΕ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΚΑΘΑΡΙΣΕΙΣ» 
:  ΡΚΙΝΤ  «ΤΗΝ  ΟΘΟΝΗ» 

720  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  720 
730  0Γ5 
740  ΕΝβ 
750  : 

760  : 

770  ΚΕΜ  Υπορουτίνα  ελέγχου  Υ/Ν 

780  ΚΕΜ  Η  ρουτίνα  ορίζει  1=1  αν  πατήσεις  Υ  (ναι)  και 

790  ΚΕΜ  ι=0  αν  πατήσεις  Ν  (όχι) 

800  ΐιη=0 
810  νΐΗΙΙ_Ε  ί  1Π=0 

820  3$=ΙΝΚΕΥ$: ΙΡ  3$=""  ΤΗΕΝ  820 
830  ΙΡ  3$="Υμ  ΟΚ  3$=Ύ*  ΤΗΕΝ  1=1 :  ί  ϊη=1 

840  ΙΡ  3$="Ν"  ΟΚ  3$="π"  ΤΗΕΝ  ΐ=0:ίϊπ=1 

850  ΗΕΝβ 
860  ΚΕΤυΚΝ 
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Π75  ΑΡΙΘΜΟΣ  ΗΜΕΡΩΝ  ΜΕΤΑΞΥ 
ΔΥΟ  ΗΜΕΡΟΜΗΝΙΩΝ 


Σε  πολλά  καθημερινά  προβλήματα  είναι  απαραίτητο  να  γνωρίζουμε  τον  α¬ 
ριθμό  των  ημερών  που  μεσολαβούν  μεταξύ  δύο  ημερομηνιών.  Αυτό  το  πρό¬ 
γραμμα  υπολογίζει  το  αριθμό  των  ημερών  που  μεσολαβούν  μεταξύ  της  μηδε¬ 
νικής  ημέρας  του  Γ ρηγοριανού  ημερολόγιου  και  κάθε  μιας  από  τις  ημερομη¬ 
νίες  που  ορίζεις.  Στη  συνέχεια  αφαιρεί  τους  δύο  αριθμούς  για  να  υπολογίσει 
το  ζητούμενο  αριθμό  ημερών. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τις  ημερομηνίες  (πάντα  για  Γρηγοριανό  ημερολόγιο),  όταν  σου  ζητη¬ 


θεί. 


100  ΡΕΜ  Πρόγραμμα  -  Αριθμός  ημερών  μεταξύ  δύο  ημερομηνιών 
110  ΘΕΡΙΝΤ  ά,πι,γ 
120  Θ1_5 

130  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ· 

140  ΡΡΙΝΤ  «ΑΥΤΟ ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΗΜΕΡΟΝ» 
150  ΡΡΙΝΤ  «ΠΟΥ  ΜΕΣΟΛΑΒΟΥΝ  ΜΕΤΑΞΥ  ΔΥΟ  ΗΜΕΡΟΜΗΝΙΩΝ» 

160  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

170  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΤΟ  ΓΡΗΓΟΡΙΑΝΟ  ΗΜΕΡΟΛΟΓΙΟ» 

180  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  «ΟΡΙΣΕ  ΤΗΝ  ΠΡΩΤΗ  ΗΜΕΡΟΜΗΝΙΑ» 

200  ά1=0:ιη1=0:γ1=0 
210  ΜΗΙΕΕ  αΐ<1  0Ρ  <11>31 
220  ΙΝΡυΤ  «ΗΜΕΡΑ  (1-31)»;ό1 
230  ΝΕΝΘ 

240  ΗΗΙΕΕ  17)1<1  0Ρ  ιη1>12 
250  ΙΝΡΙΙΤ  «ΜΗΝΑΣ(Ι-!2)»;ηι] 

260  ΜΕΝΘ 

270  ΜΗ 1 1_Ε  >Ί<1 

280  ΙΝΡΙΙΤ  «ΕΤΟΣ(π.χ.  1985)»  ;γ1 

290  ΜΕΝΘ 

300  άύ=(ί1:πιιη=πι1:/χ=γ1:605υΒ  520 
310  ηΐ=ηη 
320  : 

330  ΡΡΙΝΤ  :  ΡΡΙΝΤ  «ΟΡΙΣΕ ΤΗ  ΔΕΥΤΕΡΗ  ΗΜΕΡΟΜΗΝΙΑ» 

340  ά2=0:π»2=0:γ2=0 
350  ΜΗ  1 1_ Ε  ά2<1  0Κ  ύ2>31 
360  ΙΝΡυΤ  '«ΗΜΕΡΑ (1-31)»;  ά2 
370  ΝΕΝί 

380  ΜΗ I (_ Ε  γπ2<  1  0Ρ  <η2>12 

390  ΙΝΡυΤ  «ΜΗΝΑΣ ( 1-12)»; πι2 

400  ΜΕΝΟ 

410  ΜΗ 1 1_ Ε  ν2<1 

420  ΙΝΡυΤ  «ΕΤΟΣ(τι.χ.  1985)»;γ2 

430  ΝΕΝΘ 

440  άα=ά2:ηκη=(η2:>Ύ=)'2:00$υΒ  520 
450  η2=ηη 

460  ΙΕ  η1>η2  ΤΗΕΝ  ηο=η1-η2  ΕΙ_5Ε  ηο=η2-η1 

470  ΡΡΙΝΤ  «ΟΙ  ΜΕΡΕΣ  ΠΟΥ  ΜΕΣΟΛΑΒΟΥΝ  ΜΕΤΑΞΥ  ΤΩΝ  ΔΥΟ  ΗΜΕΡΟΜΗΝΙΩΝ» 
:  ΡΡΙΝΤ  «ΕΙΝΑΙ» 
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480  ΡΚΙΝΤ  ηο 
490  ΕΝΘ 
500  : 

510  : 

520  ΚΕΜ  Υπορουτίνα  υπολογισμού  του  αριθμού  των 
530  ΚΕΜ  ημερών  από  τη  μηδενική  ημέρα 
540  ΚΕΜ 

550  ΚΕΜ  ΙΝΡΙΙΤ5  :  άΰ,ΠΗΠ,/χ 

560  ΚΕΜ  ουτρυτ  -  ηπ 

570  ΚΕ5Τ0ΚΕ 

580  ΡΟΚ  ϊ  =  1  ΤΟ  γπιπ 

590  ΚΕΑβ  άΐγ 

600  ΝΕΧΤ  ϊ 

610  ΘΑΤΑ  0,31,59,90,120,15 1,181,21 2, 243, 273, 304, 334 
620  +  άϋ 

630  ηη=ε)1;χ  +  γγ*365  +  ΙΝΤ(γγ/4)  +1  -  ΙΝΤ(γχ/100)  +  ΙΝΤ(γγ/400) 
640  Ιγ  (γγ  ΜΟΟ  4  =0)  ΑΝΘ  γπγπ<3  ΤΗΕΝ  ηη=ηπ-1 
650  ΚΕΤυΚΝ 
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Π76  ΠΡΟΓΡΑΜΜΑ  ΡΟΟΓ3 


Αυτό  το  πρόγραμμα  επιλέγει  τυχαίους  αριθμούς  και  τους  παρουσιάζει  κατα¬ 
νεμημένους  σε  τέσσερεις  στήλες  για  δική  σου  χρήση. 

(Σ.τ.μ.:  Ροοίδ  είναι  προγνωστικά  ποδοσφαίρου,  όπως  εφαρμόζεται  στην  Αγ¬ 
γλία,  κι’  όπου  αντίθετα  με  το  ελληνικό  ΠΡΟ-ΠΟ,  προσπαθούν  περισσότερο 
να  προβλέψουν  τα  X.). 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΡΕΜ  Πρόγραμμα  ΡοοΙδ 
110  ΡΙΜ  ΐθ(Πρ%(  100) 

120  ΰΕΡ  ΡΝρΙ$(3)=ΡΙ6ΗΤ$("  Μ+$ΤΡ$(3),3) 

130  005 

140  ΡΡΙΝΤ  :  ΡΡΙΝΤ  :  ΡΡΙΝΤ 

150  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΕΝ  ΘΑ  ΚΕΡΔΙΣΕΙ  ΒΕΒΑΙΑ» 

160  ΡΡΙΝΤ  «ΤΑ  ΡΟΟΕ8  ΓΙΑ  ΣΕΝΑ.  ΟΥΤΕ  ΜΕΙΩΝΕΙ  ΟΠΩΣΔΗΠΟΤΕ» 

170  ΡΡΙΝΤ  «ΤΙΣ  ΠΙΘΑΝΟΤΗΤΕΣ  ΝΑ  ΧΑΣΕΙΣ,  ΑΛΛΑ  Η  ΕΥΘΥΝΗ» 

180  ΡΡΙΝΤ  «ΕΙΝΑΙ  ΠΙΑ  ΤΟΥ  ΥΠΟΛΟΓΙΣΤΗ,  ΟΧΙ  ΔΙΚΗ  ΣΟΥ» 

190  ΡΡΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΘΑ  ΣΟΥ  ΔΩΣΕΙ  ΤΙΣ  ΔΙΚΕΣ  ΣΟΥ» 

200  ΡΡΙΝΤ  «ΤΡΙΑΔΕΣ  ΤΥΧΑΙΩΝ  ΑΡΙΘΜΩΝ» 

210  : 

220  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

230  ΙΝΡυΤ  «ΠΟΣΑ  ΠΑΙΧΝΙΔΙΑ  ΣΕ  ΚΑΘΕ  ΔΕΛΤΙΟ»:  βαπιεδ 
240  ΙΝΡυΤ  «ΠΟΣΕΣ  ΣΤΗΛΕΣ  ΘΕΛΕΙΣ»;  εοΐαπιηδ 
250  ΙΝΡυΤ  «ΠΟΣΟΥΣ  ΑΡΙΘΜΟΥΣ  ΕΧΕΙ  ΚΑΘΕ  ΣΤΗΛΗ»;  επίπεδ 
260  : 

270  αε 

280  Ρ0Ρ  ϊ  =  1  ΤΟ  ςοΐυιηηδ 
290  }=1 

300  ΜΗ I Ι_Ε  ϊ<βηΐΓΪθ5+1 

310  ΐθπφ%(  3)  =  ΙΝΤ(ΡΝϋ(10)*93ΐιΐθδ+1) 

320  11.39=0 

330  Ρ0Ρ  Ι<=1  ΤΟ  ϊ-1 

340  ΙΡ  ΐβπ>ρ%(ΙΟ  =  ΐθΓηρ%(  }  )  ΤΗΕΝ  1139=1 

350  ΝΕΧΤ  Ι<  .  „ 

360  ΙΡ  11.39=0  ΤΗΕΝ  1.00ΑΤΕ  1*5,3 : ΡΡΙΝΤ  ΡΝρ  1$ < ΤβΓηρ% (  )  ) ):  ϊ  =  ]  +  1 

370  ΜΕΝβ 
380  ΝΕΧΤ  ϊ 
390  ΕΝ0 
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Π77  ΧΡΟΝΟΔΙΑΚΟΠΤΗΣ  ΚΟΥΖΙΝΑΣ 

Ένα  πολύ  χρήσιμο  πρόγραμμα  για  την  κουζίνα.  Σου  επιτρέπει  να  γνωρίζεις 
το  χρόνο  που  θα  χρειαστείς  για  το  μαγείρεμα  ενός  φαγητού.  Στο  τέλος  του 
χρόνου,  που  εσύ  ορίζεις,  ακούγεται  ένα  ηχητικό  σήμα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τον  χρόνο  όταν  σου  ζητηθεί. 


100  ΚΕΜ  Πρόγραμμα  -  Χρονοδιακόπτης  κουζίνας 
110  01_5 

120  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

130  ΡΚΙΝΤ  «ΠΟΣΟ  ΧΡΟΝΟ  ΘΕΛΕΙΣ  ΝΑ  ΒΑΛΕΙΣ;» 

140  ΙΝΡυΤ  «ΩΡΕΣ»;  Ηοιικ 

150  ΙΝΡυΤ  «ΛΕΠΤΑ»;  πιίηί 

160  ΙΝΡυΤ  «ΔΕΥΤΕΡΟΛΕΠΤΑ»;  «05 

170  ΙΡ  5βε$>0  ΤΗΕΝ  8605=5605-1 

180  Μ00Ε  0 

190  : 

200  ΕνΕΚΥ  50  60$υΒ  480 
210  ί=ΤΙΜΕ 
220  ΜΗ 1 1_Ε  ΙιουΓ5<>-1 
230  ΗΗΙίΕ  (ΠΪηδΟ-Ι 
240  ΗΗΙίΕ  5Θ05Ο-1 
250  ί =ΤΙΜΕ 

260  ΗΗΙίΕ  ΤΙΜΕ-Κ300 

270  ΗΕΝΟ 

280  ίΟΟΑΤΕ  5,12:  ΡΚΙΝΤ  ΙιουΓδ 

290  ίΟΟΑΤΕ  8,12: ΡΚΙΝΤ  ιηϊηδ 

300  ίΟΟΑΤΕ  11,12: ΡΚΙΝΤ  5605 

310  5605=5608-1 

320  ΗΕΝ0 

330  ππη5=ιτπη5-1 

340  5605=59 

350  ΗΕΝϋ 

360  ΗουΓδ=ΡιουΓ  δ-1 

370  πηη5=59 

380  ΗΕΝβ 

390  : 

400  Ρ0Κ  ΐ=1  ΤΟ  10 
410  ΡΚΙΝΤ  0ΗΚ$(7) 

420  Ρ0Κ  ϊ=1  ΤΟ  10 
430  ΝΕΧΤ  ΐ 
440  ΝΕΧΤ  ΐ 
450  0ί$ 

460  ίΟΟΑΤΕ  8,  12:  ΡΚΙΝΤ  «ΤΕΛΟΣ  ΧΡΟΝΟΥ» 

470  ΕΝ0 

480  ίΟΟΑΤΕ  8,12: ΡΚΙΝΤ 
490  ΙΟΟΑΤΕ  1 1, 12: ΡΚΙΝΤ 
500  ΚΕΤυΚΝ 
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Π78  ΕΛΕΓΧΟΣ  ΠΡΟΟΔΟΥ 


Αυτό  το  πρόγραμμα  συντάσσει  τον  έλεγχο  προόδου  ενός  μαθητή.  Θα  μπο¬ 
ρούσες  να  αναπτύξεις  το  πρόγραμμα,  ώστε  να  αποθηκεύει  τα  δεδομένα  με  τη 
μορφή  αρχείου  σε  κασέτα  ή  δίσκο  και  να  χειρίζεται  περισσότερους  από  ένα 
μαθητές. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τα  στοιχεία,  όπως  σου  ζητούνται. 


100  ΚΕΜ  Πρόγραμμα  -  Έλεγχος  προόδου 

110  ΜΟϋΕ  2  '  χρησιμοποιώντας  80  στήλες  στον  εκτυπωτή 

120  ΒΟΚύΕΚ  6 


130  ΡΚΙΝΤ  :  ΡΚΙΝΤ  :  ΡΚΙΝΤ 

140  ΡΚΙΝΤ  5ΡΑ0 Ε$( 34); "ΕΛΕΓΧΟΣ  ΠΡΟΟΔΟΥ" 

150  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ  „„ΛΓ„τνττητϋ^ην 

160  ΡΚΙΝΤ  δΡΑ0Ε$(  23);  «ΠΑΡΑΚΑΛΩ  ΒΕΒΑΙΩΣΟΥ  ΟΤΙ  Ο  ΕΚΤΥΠΩΤΗΣ  ΣΟΥ» 
170  ΡΚΙΝΤ: ΡΚΙΝΤ  δΡΑΟ Ε$( 23);  «ΕΙΝΑΙ  ΣΩΣΤΑ  ΣΥΝΔΕΔΕΜΕΝΟΣ» 

180  ΕΟΟΑΤΕ  10/20:  ΡΚΙΝΤ  «“ΠΑΤΗΣΕ  ΕΝΑ· ΠΛΗΚΤΡΟ  ΜΟΛΙΣ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
190  ζ$=ΙΝΚΕΥ$: ΙΕ  ζ$='"'  ΤΗΕΝ  190 

200  ΟΟδυβ  710  '  σχεδίαση  φύλλου  ελέγχου· 

210  Μ$="":Μ(ΐτΐι=20:  ρχ=12:  ργ=3:60δυΒ  870 
220  3ΐυόβηΐ$=ν$ 

230  Μ$="":ν/ιΙίΗ=20:ρχ=47:ργ=3:60δυΒ  870 
240  3οΙιοοΙ$=μ$ 

250  ν/$='"’:Μ(1ΐίι=20:ρχ=48:  ργ=5:60δΙΙΒ  870 
260  $ε55Ϊοη$=Μ$ 

270  ύΙΜ  3υύϊεοΐ$(10)/3ΐΐεη(1ρ$(10)/3ΐΐθηΐ35(10)/ 

9Γ30εί(  10)  /ρο3Π$  ( 10),ςοΓηιπεηΐ$(  10) 

280  5υύ=8: 3ΐίρ=4: 3ΐ  1:3=4 :9Γ3άε=2:  ρο5Π=3:  εοι™ηεηΐ=30 
290  ΕΟΚ  ϊ=1  ΤΟ  10 


300  ρχ=4:  ργ=9+ ϊ :  «ό1:Ιι=8ΐιί) 

310  ΕΟδΙΙΒ  870 

320  5υί>ΐεοτ$(  ί  )=ω$+δΡΑ0Ε$(8-1_ΕΝ(ι«/$) ) 

330  ΙΕ  ίΕΝ(«$)=0  ΤΗΕΝ  ΡΚΙΝΤ  0ΗΚ$(7): ϊ=1Ο:6ΟΤ0  440 
340  ρχ=14:ργ=9+ϊ:Μ0ΐ1ι=3ΐΐρ:605υΒ  870 

350  3«εηόρ$(  ϊ  )=νί$+2ΡΑ0Ε$(4-ΕΕΝ(ν/$) ) 

360  ρχ=19: ργ=9+  ϊ :ν/όίΙι=3ΐΐ3: ΟΟδΙΙΒ  870 

370  3ΐίεΠ(ΐ3$(  ΐ  )=«$+δΡΑ0Ε$(4-Ι.ΕΝ(Μ$) ) 

380  ρχ=27:  ργ=9+ ϊ  :ν;όΐ1ι=9Γ30ε:60δΙ)Β  870 

390  9Γ3άε$(  ϊ  )=ν/$+δΡΑ0Ε$(2-ΕΕΝ(ν/$)  ) 

400  ρχ=36: ργ=9+ϊ : ωάΐΙϊ=ρο5η: ΕΟδίΙΒ  870 

410  ρο5Π$(ϊ)=Μ$+5ΡΑ0Ε$(3-ΕΕΝ(ν/$)) 

420  ρχ=43:ργ=9+ϊ:ν;όΐΙι=αο(ΐΐΓηεπΐ:60δυΒ  870 
430  εοιηιηεηΐ$(  ϊ)=Μ$+5ΡΑ€Ε$ί30-Ι_ΕΝ(«$)) 


440  ΝΕΧΤ  ϊ 

450  ρχ=23:ρχ=22:Μάΐό=20:60δυΒ  870 
460  ονεΓ3ίί$=Μ$ 

470  ρχ  =  20:ρ/=24:ν/όΐ1ι=2:60δυΒ  870 
480  3η5$=Μ$ 

490  ΙΕ  υΡΡΕΚ$(3η5$)=”Ν"  ΤΗΕΝ  ΡυΝ 


500  : 

510  Κ  ΕΜ  Παρουσίαση  ελέγχου 
520  (Έ5 

530  ΕΟΟΑΤΕ  10,10:ΡΚΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΕΥΘΥΓΡΑΜΜΙΣΕ  ΤΟ  ΧΑΡΤΙ  ΚΑΙ.» 
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ΡΡΙΝ1  ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ» 

540  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  540 

550  ΡΡΙΝΤ#8,  5Ρί  (40);  «ΕΛΕΓΧΟΣ  ΠΡΟΟΔΟΥ» 

560  ΡΡΙΝΤ#8,  : ΡΡΙΝΤ  #8,  :ΡΡΙΝΤ#8,"" 

570  ΡΡΙΝΤ#8,  1  «ΜΑΘΗΤΗΣ  -»;  5ΐικ1βηΐ$;3Ρ0  (10);  «ΣΧΟΛ.  ΕΤΟΣ-»;  8Ε83ΙΟΝ  $ 

580  ΡΡΙΝΤ  #8,  :ΡΡΙΝΤ  #8,  :ΡΡΙΝΤ£8, 

590  ΡΡΙΝΤ#8,  «ΜΑΘΗΜΑ  ΠΑΡΟΥΣΙΕΣ  ΒΑΘΜΟΣ  ΒΑΘΜΟΛΟΓΙΚΗ  ΠΑΡΑΤΗΡΗΣΕΙΣ» 
600  ΡΡΙΝΤ#8,"  Π  Α  ΚΑΤΑΤΑΞΗ" 

610  ΡΡΙΝΤ/Υ8,  :  ΡΡΙΝΤ  #8,:  ΡΡΙΝΤ#8,Μ" 

620  Ρ0Ρ  1=1  ΤΟ  10 

630  ΡΡΙΝΤ#8,  $ιώ}θθΐ$( τ );8Ρ0(4);3ΐΐθπάρ$( ϊ);"  ";3ΐΐθηά3$( ί); 

5Ρ0(4);9Γ3£1θ$(  ΐ  );8Ρ0(6);ρο5η$(  ί>;$Ρ€(6);€0Γππιεηΐ$(  ϊ ) 

640  ΝΕΧΤ  1 

650  ΡΡΙΝΤ#8,  :  ΡΡΙΝΤ08,  :  ΡΡΙΝΤ#8,"" 

660  ΡΡΙΝΤ#8,  «ΓΕΝΙΚΗ  ΕΙΚΟΝΑ  -»;  ονεταΐΐ $  :ονθΓθΙΙ$ 

670  ΡΡΙΝΤ#8,:ΡΡΙΝΤ  #8, 

680  ΡΡΙΝΤ  #8,  «ΥΠΟΓΡΑΦΗ  ΓΟΝΙΟΥ  Η  ΚΗΔΕΜΟΝΑ  -»;  8ΤΚΙΝΟ  $  (20, 

690  ΕΝΰ 

700  ΡΕΜ  Σχεδίαση  φύλλου  ελέγχου 
710  0ί8 

720  ίΟΟΑΤΕ  34,1: ΡΡΙΝΤ  «ΕΛΕΓΧΟΣ  ΠΡΟΟΔΟΥ» 

730  ίΟΟΑΤΕ  3,3: ΡΡΙΝΤ 

«ΜΑΘΗΤΗΣ:  :  ΣΧΟΛΕΙΟ: 

740  ίΟΟΑΤΕ  39,5: ΡΡΙΝΤ  "8Ε58Ι0Ν  :  : " 

750  ίΟΟΑΤΕ  3,7: 

ΡΡΙΝΤ  «ΜΑΘΗΜΑ  ΠΑΡΟΥΣΙΕΣ  ΒΑΘΜΟΣ  ΒΑΘΜΟΛΟΓΙΚΗ  ΠΑΡΑΤΗΡΗΣΕΙΣ» 

760  ίΟΟΑΤΕ  3,8:ΡΡΙΝΤ  "  Π  Α  ΚΑΤΑΤΑΞΗ" 

770  ίΟΟΑΤΕ  3,22: ΡΡΙΝΤ  «ΓΕΝΙΚΗ  ΕΙΚΟΝΑ: 

780  ίΟΟΑΤΕ  3,24:  ΡΡΙΝΤ  «ΣΩΣΤΟΣ  ΕΛΕΓΧΟΣ  (Υ/Ν):  :» 

790  ΜΟνΕ  16,400-6*16+4:  ΡΡΑΗ  608,400-6*16+4 
800  ΜΟνΕ  16,400-20*16+4: ΡΡΑΜ  608,400-20*16+4 
810  ΜΟνΕ  16,400-8*16-4: ΡΡΑΜ  608,400-8*16-4 

820  ΜΟνΕ  16,400-6*16+4: ΟΡΑΜΡ  0,-14*16:Μ0νΕΡ  9*8,0: ϋΕΑΜΡ  0,14*16 
830  ΜΟνΕΡ  13*8,0: [>ΒΑΜΡ  0,-14*16:Μ0νΕΡ  7*8,0:ΟΡΑΜΡ  0,14*16 
840  ΜΟνΕΡ  10*8,0:  [>ΒΑΗΡ  0,-14*16:Μ0νΕΡ  35*8,0:βΡΑΗΡ  0,14*16 
850  ΡΕΤυΡΝ 

860  ΡΕΜ  Ρουτίνα  εισαγωγής 

870  ο=1:ζ$="":ίΟΟΑΤΕ  ρχ,ργ:ν/$="" 

880  ΝΗΙίΕ  ο<ν/8ΐίι  ΑΝΰ  ζ$ΟΟΗΡ$(13) 

890  ΡΡΙΝΤ  0ΗΡ$(233); 

900  ζ$=ΙΝΚΕΥ$:ΐΡ  ζ$=""  ΤΗΕΝ  900 
910  ΡΡΙΝΤ  0ΗΡ$(8); 

920  ΙΡ  ζ$=0ΗΡ$( 127)  ΤΗΕΝ  ΡΡΙΝΤ  €ΗΡ$(8)+"  "+0ΗΡ$(8);: 

ιν$=ίΕΡΤ$(ν/$,ο-2) :  ε=ς-1: 60Τ0  950 
930  ΙΡ  ζ$<>  0ΗΡ$(  13)  ΤΗΕΝ  \*/$=μ$+ζ$:  ΡΡΙΝΤ  ζ$; 

940  ο=ς+1 

950  ΜΕΝβ 
960  ΡΡΙΝΤ  "  "; 

970  ΡΕΤυΡΝ 
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ΕΛΕΓΧΟΣ  ΠΡΟΟΔΟΥ 


ΣΠΟΥΔΑΣΤΗΣ- 

Ιων  Τάσης 

ΠΕΡΙΟΔΟΣ  - 

1986-1987 

ΑΝΤΙΚΕΙΜΕΝΟ 

ΠΑΡΟΥΣΙΕΣ 

ΒΑΘΜΟΣ  ΒΑΘΜΟΛΟΓΙΚΗ  ΠΑΡΑΤΗΡΗΣΕΙΣ 

Π 

Α 

ΚΑΤΑΤΑΞΗ 

Μαθηματικά 

50 

45 

3  3 

Πολύ  καλά 

Αγγλικά 

50 

48 

ί  14 

Οχι  τόσο  καλά 

ΓΕΝΙΚΗ  ΕΙΚΟΝΑ  -  Ηα  μπορούσε  να  είναι  καλύτερη 


ΥΠΟΓΡΑΦΗ  ΓΟΝΙΟΥ  Η  ΚΗΔΕΜΟΝΑ 


Π79  ΑΠΑΡΙΘΜΗΣΗ 


Αυτό  το  πρόγραμμα  μπορεί  να  φανεί  ιδιαίτερα  χρήσιμο  από  εκπαιδευτική  ά¬ 
ποψη  σε  πολύ  μικρούς  μαθητές.  Παρουσιάζει  μέχρι  εννιά  τερατάκια  στην  ο¬ 
θόνη.  Ο  χρήστης  πρέπει  να  απαριθμήσει  τα  τερατάκια  και  να  πατήσει  το  κα¬ 
τάλληλο  αριθμητικό  πλήκτρο.  Το  πλήκτρο  ΚΕΤυΚΝ  δεν  χρησιμοποιείται. 

Το  πρόγραμμα  θα  μπορούσε  να  επεκταθεί  ώστε  να  παρουσιάζει  στην  οθόνη 
μερικές  ομάδες  ομοειδών  πραγμάτων  (π.χ.  αυτοκίνητα,  λουλούδια  και  μπάλ- 
λες)  ταυτόχρονα.  Σ’  αυτή  την  περίπτωση  ο  χρήστης  θα  πρέπει  να  απαριθμεί 
τα  είδη  κάθε  ομάδας. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Το  πρόγραμμα  τερματίζεται  με  το  πάτημα  του  πλήκτρου  διαστήματος. 


100  ΡΕΜ  Πρόγραμμα  -  Απαρίθμηση 

110  ΕΝν  1,5,3,4,2,-4,4,3,2,4,1,0,12,2,-3,4 

120  ΘΙΜ  χ( 10) ,χ( 10) 

130  ΘΕΡ  ΡΝΓ3Πθ(ά)=ΡΙΧ(ΚΝβ(ΤΙΜΕ)*ά)+1 
140  Μ00Ε  0: ΡΑΡΕΡ  2:α5:Β0ΡΘΕΡ  6 
150  5ΥΜΒ0Ε  244,24,60,90,126,36,90,66,129 
160  ΡΕΝ  1 
170  : 

180  ΜΗΙΙ_Ε  1  =  1 

190  οουπΐ=ΡΙΧ(ΡΝΡ(ΤΙΜΕ)*9)+1 
200  ΙΝΚ  2,2:01.5. 

210  χ ( 1 )=ΡΝΓ3Πό(20) 

220-  χ( 1 )=ΡΝγ3πΟ(22) 

230  : 

240  Ρ0Ρ  ϊ=2  ΤΟ  ςουπί 
250  χ( ϊ )=ΡΝγ3π0(20) 

260  γ( ϊ )=ΡΝγ3πΟ(22) 

270  Ρ0Ρ  5=1  ΤΟ  ι-1 

280  ΙΡ  χ(ΐ)=χ(5)  ΑΝΘ  γ(ϊ)=γ(5)  ΤΗΕΝ  ι=ϊ-1 

290  ΝΕΧΤ  5 

300  ΝΕΧΤ  ϊ 
310  : 

320  Ρ0Ρ  ι=1  ΤΟ  εουπΐ 

330  1.00ΑΤΕ  χ(ϊ),γ(ϊ):ΡΡΙΝΤ  0ΗΡ$(244); 

340  ΝΕΧΤ  ϊ 
350  : 

360  ίί39=0 

370  ΜΗΙΕΕ  Τ I 39=0 
380  Ρΐ39=-1 

390  Ε00ΑΤΕ  1,24:  ΡΡΙΝΤ  «Αριθμός  τεράτων»; 

400  3Π5$=ΙΝΚΕΥ$:ΙΡ  3η5$=""  ΤΗΕΝ  400 

410  Ε00ΑΤΕ  1,24: ΡΡΙΝΤ  5ΡΑΟΕ$(30); 

420  3Π5  =  νΑΕ(  3Γ1 5$  ) 

430  ΙΡ  3Π5=εουηΐ  ΤΗΕΝ  ΙΝΚ  2,5,8:605ϋΒ  470 

ΕΕ5Ε  500ΝΘ  1,200,10,0,1,0,4:1139=0 
440  ΝΕΝΘ 
450  ΜΕΝΟ 
460  ΕΝΟ 
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470  ΐβπιρο=2.5 

480  ΚΕ5Τ0ΒΕ  570 

490  ΡΟΡ  χ=1  ΤΟ  20 

500  ΚΕΑΟ  ρτΐοΤι,οίυΓβΐ ϊοη 

510  ρϊΐεΤι=ρ1  140 

520  ΐΓθρ=440*(2Α((ρΐΐε^-10)/12)) 

530  ρΐ1:οίιηυΐϊ)=ΡθυΝ[)(  125000/ίΓες) 

540  50υΝ0  1,ρϊΐεΐΊηυπ),£)υΓ3ΐϊοη*ΐθΐηρο,15,0,0,0 

550  ΝΕΧΤ  χ 
560  ΚΕΤυΚΝ 

570  ΡΑΤΑ  109,6,117,2,121,6,129,2,137,8,157,6,165,2, 

169.8.165.6.157.8.137.8 

580  ΡΑΤΑ  109,6,117,2,121,6,129,2,137,8,157,4,110,2, 

137.2.145.8 


Πόσα  τέρατα  είναι 


Π80  ΜΑΘΗΜΑ  ΑΡΙΘΜΗΤΙΚΗΣ 


Εδώ  παρουσιάζουμε  τη  βάση  ενός  εκπαιδευτικού  προγράμματος  που  θα  μπο¬ 
ρούσε  να  εφαρμοσθεί  στις  πρώτες  τάξεις  του  Δημοτικού.  Το  πρόγραμμα  δί¬ 
νει  τη  δυνατότηα  στο  μικρό  μαθητή  να  εξασκηθεί  στα  απλά  μαθηματικά 
προβλήματα.  Για  το  σκοπό  αυτό  έχουν  συμπεριληφθεί  ρουτίνες  πολλαπλα¬ 
σιασμού,  διαίρεσης,  πρόσθεσης  και  αφαίρεσης. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

100  ΡΕΜ  Πρόγραμμα  -  Μάθημα  αριθμητικής 
110  ΜΟΡΕ  1 

120  5ΥΜΒ01  244,4,4,4,4,4,4,4,4 
130  5ΥΜΒ0Ε  245,4,7,0,0,0,0,0,0 
140  5ΥΜΒ01  246,0,255,0,0,0,0,0,0 
150  : 

160  ΓΘ5$="Υ" 

170  ΜΗΙΕΕ  υΡΡΕΡ$(Γθ5$)="Υ" 

180  01$ 

190  ΡΡΙΝΤ  «ΘΑ  ΣΟΥ  ΔΟΘΕΙ  ΕΝΑ  ΑΡΙΘΜΗΤΙΚΟ» 

200  ΡΡΙΝΤ  «ΠΡΟΒΛΗΜΑ.  ΛΥΣΕ  ΤΟ  ΠΡΟΒΛΗΜΑ» 

210  ΡΡΙΝΤ  «ΠΛΗΚΤΡΟΛΟΓΩΝΤΑΣ  ΤΗ  ΔΙΚΗ  ΣΟΥ  ΛΥΣΗ» 

220  ΡΡΙΝΤ  «ΜΕ  ΤΟ  ΣΥΝΗΘΙΣΜΕΝΟ  ΤΡΟΠΟ». 

230  ΡΡΙΝΤ: ΡΡΙΝΤ 

240  ΡΡΙΝΤ  «ΥΠΑΡΧΟΥΝ  ΠΡΟΒΛΗΜΑΤΑ  ΓΙΑ:  «:ΡΚΙΝΤ 
.250  ΡΡΙΝΤ  «1.  ΠΡΟΣΘΕΣΗ» 

260  ΡΡΙΝΤ  «2.  ΑΦΑΙΡΕΣΗ» 

270  ΡΡΙΝΤ  «3.  ΔΙΑΙΡΕΣΗ» 

280  ΡΡΙΝΤ  «4.  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟ» 

290  ΡΡΙΝΚΡΡΙΝΤ 

300  ΙΝΡυΤ  «ΤΙ  ΘΑ  ΔΙΑΛΕΞΕΙΣ»;  οΐιοίοα 

310  ΟΝ  οΝοϊοθ  6050Β  610,700,790,1100 

320  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

330  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ»;  τεδ  $ 

340  ΜΕΝ0 
350  ΕΝΘ 

360  η1$=5ΤΡ$(ηυπι1) 

370  η2$=5ΤΡ$(ηυΓτι2) 

380  ΜΗΙΕΕ  ΙΝΚΕΥ$<>',,,:ΜΕΝΘ 

390  ΕΟΟΑΤΕ  1,12:  ΡΡΙΝΤ  5Ρα20-ΕΕΝ(η1$)  );η1$ 

400  ΕΟΟΑΤΕ  1,15:ΡΡΙΝΤ  5Ρ0 ( 18-Ι_ΕΝ(η2$) );5$;π2$; 

410  ΕΟΟΑΤΕ  16,16:ΡΡΙΝΤ  5ΤΡΙΝ6$(5,"_Μ),· 

420  εοΓΓθεί=0 

430  ΜΗΙΕΕ  ΝΟΤ  εοΓΓθεΐ 

440  1:$="" 

450  ρ=20 

460  3$="  " 

470  ΜΚΙΕΕ  Α50(3$Χ>13 

480  εοΓΓβεΐ=0 

490  3$=ΙΝΚΕΥ$:ΙΡ  3$=,,,'  ΤΗΕΝ  490 

500  ΙΡ  Α50(3$)Ο13  ΤΗΕΝ  &$=3Ϊ+1)$:  ΕΟΟΑΤΕ  ρ,19:ΡΡΙΝΤ  3$;:ρ=ρ-1 

510  ΝΕΝΟ 

520  ΙΡ  νΑΕ(δ$)=Γθ5υΐτ 

ΤΗΕΝ  ΕΟΟΑΤΕ  5 ,22: ΡΡΙΝΤ  «ΣΩΣΤΟ  -  ΜΠΡΑΒΟ!»:  οογγ«οι=  -I 
Ε1_5 Ε  ΕΟΟΑΤΕ  5 ,22: ΡΡΙΝΤ  «ΛΑΘΟΣ  -  ΠΡΟΣΠΑΘΗΣΕ  ΠΑΛΙ» 
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530  ί=ΤΙΜΕ 

540  νΐΗΙ  1_Ε  ΤΙΜΕ-Κ900:  ΜΕΝί) 

550  ΕΟΕΑΤΕ  5,19: ΡΚΙΝΤ  5ΡΑΕΕ$(20); 

560  ΙΟΟΑΤΕ  5,20: ΡΡΙΝΤ  5ΡΑ€Ε$(20); 

570  ΜΕΝΘ 
580  ΡΕΤΙΙΡΝ 
590  : 

600  : 

610  ΡΕΜ  πρόσθεση 
620  ηυιπ1  =  ΡΙΧ(ΒΝ0(ΤΙΜΕ)*999)+1 
630  ηυιτι2=ΡΙΧ(ΒΝΘ(ΤΙΜΕ)*999)  +  1 
640  ΘΕΕ 

650  ΡΡΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ  "  ΠΡΟΣΘΕΣΗ" 

660  5$="+  ”:Γθ$υΙΐ=ηυΓτι1+ηυπι2:605υΒ  360 
670  ΡΕΤΙΙΡΝ 
680  : 

690  : 

700  ΡΕΜ  Αφαίρεση 
710  πυπι1=ΠΧ(ΡΝΘ(ΤΙΜΕ)*999)  +  1 
720  ηυιη2=ΡΙΧ(ΗΝΡ(ΤΙΜΕ)*ηυπι1)  +  1 
730  015 

740  ΡΡΙΝΤ: ΡΡΙΝΤ:  ΡΡΙΝΤ"  ΑΦΑΙΡΕΣΗ» 

750  5$="-  Γθ5υΙΐ=ηυπι1-ηϋΓη2: 605υΒ  360 
760  ΡΕΤυΡΝ 
770  : 

780  : 

790  ΡΕΜ  Διαίρεση 
800  0Ε3 

810  ηυπι2=3:  ηυπι1  =  1 

820  ΗΗΙΕΕ  ΡΙΧ(ηυπι1/ηϋΓη2)<>ηυπι1/ηυιιι2 
830  πυπι2=ΡΙΧ(ΗΝ0(ΤΙΜΕ)*9)  +  1 

835  πυπι  1  =  ( Ρ I X  (  Ρ  Ν  θ  ( Τ I  ΜΕ )  *99  )  + 1 ')  *ηιιπ)2 

840  ΙΡ  ηυπ2=0  ΤΗΕΝ  830 

860  ΗΕΝΟ 

870  ΡΡΙΝΤ:ΡΒΙΝΤ:ΡΗΙΝΤ «  ΔΙΑΙΡΕΣΗ» 

880  η1$=5ΤΡ$(ηυπι1 ) 

890  η2$=5ΤΡ$(ηυπ>2) 

900  ΕΟΟΑΤΕ  10/12:  ΡΡΙΝΤ  η2$;(:ΗΡ$(244)/-η1$,· 

910  ΕΟΟΑΤΕ  12/13: ΡΡΙΝΤ  €ΗΡ$(245);$ΤΡΙΝ6$(5,ΘΗΡ$(246)) 

920  αοΓΓβεΐ^Ο 

930  ΝΗΙΕΕ  ΝΟΤ  ςοΓΓθΟί: 

940  6$="" 

950  ρ= 1 4 : 3$="  ” 

960  ΙήΙΗΙίΕ  Α50(3$)Ο13 

970  εοΓΓβςΐ=0 

980  3$=ΙΝΚΕΥ$:1Ρ  ΤΗΕΝ  980 

990  ΙΡ  Α$0(3$)Ο13 

ΤΗΕΝ  6$=6$+3$: ΙΟΘΑΤΕ  ρ, 14: ΡΡΙΝΤ  3$;:ρ=ρ+1 

1000  ΜΕΝΘ 

1010  ΙΡ  νΑΚ&$)=ηυιη1/ηυΓη2 

ΤΗΕΝ  ΕΟΟΑΤΕ  5/22: ΡΡΙ ΝΤ  «ΣΩΣΤΟ  -  ΜΠΡΑΒΟ»:  οογγ«1= - 
ΕΕ3Ε  ΙΟΟΑΤΕ  5 ,22: ΡΡΙΝΤ  «ΛΑΘΟΣ  -  ΠΡΟΣΠΑΘΗΣΕ  ΠΑΛΙ» 
1020  ΐ=ΤΙΜΕ 

1030  ΜΗΙΕΕ  ΤΙΜΕ-Κ900:  ΜΕΝΘ 

1040  ΕΟΟΑΤΕ  5/ 14: ΡΡΙΝΤ  5ΤΡΙΝ0$(20,"  "); 

1050  ΕΟΟΑΤΕ  5,22:ΡΡΙΝΤ  5ΤΡΙΝ6$(20,"  "); 

1060  ΝΕΝΘ 
1070  ΡΕΤυΡΝ 
1080  : 

1090  : 

1100  ΡΕΜ  Πολλαπλασιασμός 
1110  0Ε5 

1120  ηυιπ1  =  ΡΙΧ(  ΡΝΟίΤΙΜΕ  )*999)  +  1 


1130  ηυΓη2=ΡΙΧ(ΡΝΒ(ΤΙΜΕ)*9)  +  1 

1140  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ  «  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ» 
1150  $$="*  ":Γ68υΙΐ=ηυπ)1*ηυιη2:605υΒ  360 
1160  ΚΕΤυΚΝ 
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Π81  ΜΑΘΗΜΑ  ΓΑΛΛΙΚΩΝ 


Αυτό  το  πρόγραμμα  παρουσιάζει  ένα  μάθημα  ερμηνείας  λέξεων  της  Γαλλι¬ 
κής  γλώσσας.  Τα  δεδομένα  εισάγονται  σαν  εντολές  δεδομένων  από  το  δά¬ 
σκαλο  ανά  ζεύγη  (Ελληνική  λέξη  και  αντίστοιχη  Γαλλική). 

Ο  μαθητής  έχει  δυνατότητα  να  κάνει  τρεις  προσπάθειες  για  να  ερμηνεύσει 
μια  λέξη.  Μετά  το  τέλος  του  μαθήματος  το  πρόγραμμα  επεξεργάζεται  στατι¬ 
στικά  την  επίδοση  του  μαθητή. 

Το  πρόγραμμα  μπορεί  να  επεκταθεί,  ώστε  να  περιλαμβάνει  περισσότερες 
από  μια  ερμηνείες  για  κάθε  λέξη,  εφ’  όσον  αυτό  κρίνεται  απαραίτητο. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Μάθημα  Γαλλικών 
110  ΘΙΜ  Γθ5υίΐ$(4) 

120  Μ00Ε  1 : ΒΟΚΘΕΚ  7:ΙΝΚ  2,21:ΡΑΡΕΚ  2:01.5 
130  ΕΟΟΑΤΕ  10,10:  ΡΚΙΝΤ  «ΜΑΘΗΜΑ  ΓΑΛΛΙΚΩΝ» 

140  ί=ΤΙΜΕ 

150  «ΗΙΙΕ  ΤΙΜΕ-ΐ<900:ΜΕΝΡ 
160  ΚΕ5Τ0ΚΕ 
170  : 

180  0Π9ΐ  ι  $ίι$="  ” 

190  ΜΗΙΙ.Ε  βΓ>9 1  ί 5 Ιΐ$<> «ΤΕΛΟΣ» 

200  3τΐθπιρΐ  =  1 

210  ΚΕΑ0  ΘΠ91  Ϊ5ίι$,ΐΓβπς1ι$ 

220  3Π3ν/ΘΓ $-"  " 

230  ΗΗΙΙΕ  3η$υεΓ$Οί Γβηςίιί  ΑΝΘ  3ίίεηιρΚ5 

240  015 

250  1.00  ΑΤΕ  1,6 

260  ΡΚΙΝΤ  ..ΑΡΙΘΜΟΣ  ΠΡΟΣΠΑΘΕΙΑΣ»;  βΚεπιρί 

270  ΡΚΙ ΝΤ: ΡΚΙΝΤ 

280  ΡΚΙΝΤ  «Η  ΕΛΛΗΝΙΚΗ  ΛΕΞΗ  ΕΙΝΑΙ»;  εηβΐίδΐι  $ 

290  ΡΚΙΝΤ:ΡΚΙΝΤ 

300  ΙΝΡΙ3Τ  «ΠΟΙΑ  ΕΙΝΑΙ  Η  ΑΝΤΙΣΤΟΙΧΗ  ΓΑΛΛΙΚΗ  ΛΕ=Η»;  3Π5\νεΓ  $ 

310  3τίθπιρΐ=3ΐΐθπιρΐ+1 

320  ΝΕΝΘ 

330  ΙΕ  3η5ΜθΓ$ΟίΓθηοΜ$  ΤΗΕΝ  Γθ5υΙί5(4)=Γ03υΙΐ5(4)+1 
ΕΕ5Ε  Γβ3υΙΐ3(3ΐΐβπιρΐ-1)=Γθ$υΙΐ5(3τΐθπ)ρΐ-Ί  )  +  1 
340  ΜΕΝΘ 
350  : 

360  015 

370  ΡΚΙΝΤ:ΡΚΙΝΤ:  ΡΚΙΝΤ  „ 

380  ΡΚΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΗΣΕΩΝ  ΜΕ  ΤΗΝ  ΠΡΩΤΗ» 

Ι  ΡΚΙΝΤ  «ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;  ιτ$υ1ΐ5  (I) 

390  ΡΚΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΗΣΕΩΝ  ΜΕ  ΤΗ  ΔΕΥΤΕΡΗ» 

:  ΡΚΙΝΤ  «ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;.  Γε$ιι1ΐ5  (2) 

400  ΡΚΙΝΤ  '·0  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΗΣΕΩΝ  ΜΕ  ΤΗΝ  ΤΡΙΤΗ» 

: ΡΚΙΝΤ  «-ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;  τεδίιΐυ  (3) 

410  ΡΚΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΑΠΟΤΥΧΗΜΕΝΩΝ  ΟΛΟΚΛΗΡΩΤΙΚΑ» 

:  ΡΚΙΝΤ  «  ΠΡΟΣΠΑΘΕΙΩΝ  ΕΙΝΑΙ;  »  τεΐωπ  (4) 
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420  ΕΝϋ 
430  : 

440  ϋΑΤΑ  ναι,  ουί,  όχι,  ηοα,  τέλος,  ίΐη. 
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Π82  ΜΑΘΗΜΑ  ΙΤΑΛΙΚΩΝ 

Αυτό  το  πρόγραμμα  παρουσιάζει  ένα  μάθημα  ερμηνείας  λέξεων  της  Ιταλικής 
γλώσσας.  Τα  δεδομένα  εισάγονται  από  τον  δάσκαλο  σαν  εντολές  δεδομένων 
ανά  ζεύγη  (Ελληνική  λέξη  και  αντίστοιχη  Ιταλική). 

Αυτό  το  πρόγραμμα  είναι  πιο  εξελιγμένο  από  το  προηγούμενο.  Πιο  συγκε¬ 
κριμένα  παρουσιάζει  ένα  κατάλογο  των  λέξεων  που  πρέπει  να  ερμηνευθούν 
με  την  πρώτη  προσπάθεια.  Κάθε  λέξη  που  δεν  ερμηνεύεται  σωστά  προστίθε¬ 
ται  πάλι  στον  κατάλογο.  Στο  τέλος  του  μαθήματος  δίνονται  τα  αποτελέσμα¬ 
τα  των  προσπαθειών  του  μαθητή. 

Το  πρόγραμμα  μπορεί  να  επεκταθεί,  ώστε  να  περιλαμβάνει  περισσότερες 
από  μια  ερμηνείες,  για  κάθε  λέξη,  εφ’  όσον  αυτό  κρίνεται  απαραίτητο. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


100  ΚΕΜ  Πρόγραμμα  -  Μάθημα  Ιταλικών 
110  ΘΙΜ  Γ6δυΙίδ(4) 

120  ΜΟΘΕ  1 : ΒΟΚΘΕΚ  7:ΙΝΚ  2,21:ΡΑΡΕΚ  2:01.5 
130  Ι_00 ΑΤΕ  10,10: ΡΚΙΝΤ  «ΜΑΘΗΜΑ  ΙΤΑΛΙΚΩΝ» 

140  ί=ΤΙΜΕ 
150  : 

160  ΜΗΙΕΕ  ΤΙΜΕ-ΐ<900:ΜΕΝΡ 
170  : 

180  ΚΕΑϋ  ηο.οί.ΜθΓάΒ:εουηΐ=ηο.οί.ι«ίθΓά5 
190  ΡΙΜ  θΠ9$(ηο.οί.νοΓά5),ϊΐ3ΐ$(ηο.οί .ΜΟΓάδ)/· 
ρί  15ΐ(ηθ.θί.ΜΟΓά3) 

200  : 

210  Ρ0Κ  ϊ=1  ΤΟ  ηο.οί.ΝΟΓάε 
220  ΚΕΑΘ  θη9$(]),ίΐ3ΐ$(ϊ) 

230  ρΜ5ΐ(ϊ)=ϊ 
240  ΝΕΧΤ  3 
250  : 

260  ]=1 

270  ν/Η I Ι_Ε  οουηί>0 
280  3ΐΐεπιρΐ=0 
290  3η5«εΓ$="  " 

300  ΜΗΙ1_Ε  3ηδΜθΓ$Οϊτ3ΐ$(ρΙϊ5ΐ(3))  ΑΝά  3ΐ ΐειηρΐ<4 

310  01.5 

320  1.00  ΑΤΕ  1,6 

330  ΡΚΙΝΤ  «ΑΡΙΘΜΟΣ  ΠΡΟΣΠΑΘΕΙΑΣ»;  βΙΙβπφΐ  +  I 

340  ΡΚΙΝΤ: ΡΚΙΝΤ 

350  ΡΚΙΝΤ  «Η  ΕΛΛΗΝΙΚΗ  ΛΕΞΗ  ΕΙΝΑΙ»;  εη^ρΐίϊΐϋ)) 

360  ΡΚΙΝΤ:ΡΚΙΝΤ 

370  ΙΝΡϋΤ  «ΠΟΙΑ  ΕΙΝΑΙ  Η  ΑΝΤΙΣΤΟΙΧΗ  ΙΤΑΛΙΚΗ  ΛΕΞΗ»;  &η5\νίΓ  $ 

380  3ΐΐβπιρΐ=3ίτθΐιιρΐ+1 

390  νΐΕΝΰ 

400  I Ρ  3Π5ΐ</θΓ5<>ίΐ3ΐ$(ρΙϊ5ΐ:(ά>)  ΤΗΕΝ  Γ£5υΙΐδ(4)=Γ65υΙΐε(4)  +  1 : 
ΡΚΙΝΤ  «ΛΑΘΟΣ  -  Η  ΣΩΣΤΗ  ΑΠΑΝΤΗΣΗ  ΕΙΝΑΙ»  ίΐ3ΐϊ(ρ|ίδ1  05): 

605υΒ  61Ο:(ΐΟΤ0  450 
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410  ΙΕ  3ίίειτιρΐ  =  1  ΤΗΕΝ  ΡΡΙΝΤ  «ΣΩΣΤΟ»:  οοιιηΐ-  οοιιηΐ  -  I:  .)= .(  +1 

420  ΙΡ  3ΐΐειηρΐ=2  ΤΗΕΝ  ΡΡΙΝΤ  «ΣΩΣΤΟ»:  ΟΟδυΒ  700 

«ΤΕΛΟΣ  ΡΟΥΤΙΝΑΣ  ΠΑΡΟΥΣΙΑΣΗΣ  ΚΑΤΑΛΟΓΟΥ 
430  ΙΡ  3ίΐθΐπρΐ=3  ΤΗΕΝ  ΡΡΙΝΤ  «ΣΩΣΤΟ»:  ΟΟδυΒ  610 
«ΜΕΣΟ  ΡΟΥΤΙΝΑΣ  ΠΑΡΟΥΣΙΑΣΗΣ  ΚΑΤΑΛΟΓΟΥ 
440  Γβ$υΙί5(3ΐΐβηρΐ)=Γβ5υΙΐ5(3ΐ·ίβ(ηρΐ)  +  1 

450  ΕΟΟΑΤΕ  1,15 

460  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

470  ζ$=ΙΝΚΕΥ$: ΙΡ  ζ$=""  ΤΗΕΝ  470 
480  ΗΕΝ0 
490  : 

500  ΟΕδ 

510  ΡΡΙΝΤ: ΡΡΙΝΤ:  ΡΡΙΝΤ 

520  ΡΡΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΗΣΕΩΝ  ΜΕ  ΤΗΝ  ΠΡΩΤΗ» 

:  ΡΡΙΝΤ  «ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;  τεειιΐκ  (I) 

530  ΡΡΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΗΣΕΩΝ  ΜΕ  ΤΗ  ΔΕΥΤΕΡΗ» 

:  ΡΡΙΝΤ  «ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;  ΓβειιΙυ  (2) 

540  ΡΡΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΣΩΣΤΩΝ  ΑΠΑΝΤΉΣΕΩΝ  ΜΕ  ΤΗΝ  ΤΡΙΤΗ» 

:  ΡΡΙΝΤ  «ΠΡΟΣΠΑΘΕΙΑ  ΕΙΝΑΙ»;  γεμιΙιβ  (3) 

550  ΡΡΙΝΤ:  ΡΡΙΝΤ:ΡΡΙΝΤ  «Ο  ΑΡΙΘΜΟΣ  ΤΩΝ  ΛΕΞΕΩΝ  ΗΤΑΝ»;  ηο.οΓ.ινοΓ* 
560  ΡΡΙΝΤ:  ΡΡΙΝΤ  «ΕΡΜΗΝΕΥΣΕΣ  ΜΕ  ΕΠΙΤΥΧΙΑ;» 

Γβ5υΙΐ$(1 )+Γβ5υΙΐ8(2)+Γθ$υΙΐ5(3)+Γβ5υΙΙ$(4); 
«ΛΕΞΕΙΣ» 

570  ΡΡΙΝΤ:ΡΡΙΝΤ  «Η  ΒΑΘΜΟΛΟΓΙΑ  ΣΟΥ  ΕΙΝΑΙ»; 

ηο.οί  .ν/οΓ£)5*10-(Γε$υΙΐ5(2)*2+Γθ5υΙΐ$(3)*4+Γβ3ϋΙΐ5(4)*8) 
580  ΕΝΡ 
590  : 

600  ΡΕΜ  Μέσο  ρουτίνας  παρουσίασης  κατάλογου 
610  πο.  ίεί  ΐ=ηο.οί  .ν/οΓϋδ-ϊ-Ι 
620  ρο8η=:+ΡΙΧ(ΡΝ0(ΤΙΜΕ)*ηο. Ιείΐ)+1 
630  ΐθΓΓ*ρ=ρ 1 1 5 ΐ  ( ) ) 

640  Ρ0Ρ  Κ=ί  ΤΟ  ροδπ-1. 

650  ρΙϊ$ΐ(ΙΟ=ρΙ  ίβΚΚ+Ι) 

660  ΝΕΧΤ  Κ 

670  ρΐ  Ϊ5ΐ(ρο5η)  =  ΐεπιρ 
680  ΡΕΤυΡΝ 

690  ΡΕΜ  Τέλος  ρουτίνας  παρουσίασης  κατάλογου 
700  ρο5Π=ηο.οί -ν/ΟΓόχ 
710  ΐεπιρ=ρΜ5ΐ(ό) 

720  Ρ0Ρ  λ=)  ΤΟ  ρο5Π-1 
730  ρΙΪ5ΐ(Χ)=ρΙϊ3ΐ(Ι<+1) 

740  ΝΕΧΤ  λ 

750  ρΐ  Ϊ5ΐ(ρο5η)  =  ΐεπιρ 
760  ΡΕΤϋΡΝ 

770  ΩΑΤΑ  4.  συσκευή,  πρρπΓειχΗίο,  κριθάρι,  οτζο 
780  ΩΑΤΑ  καρέκλα,  $«1ί3,  διάλεκτος,  άίβΐίΐιο 
790  ^ΑΤΑ  α  γϊ,  οΓβοοΙιίο,  αλεύρι  Γβιϊπα 
800  ϋΑΤΑ  γάντι,  βυβηΐο,  ύμνος,  ίηηο 
810  ΩΑΤΑ  σπουδαίο,  ΐΓηροπαπιε,  ζούγκλα,  £ίυη§ΐ3 
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Π83  ΜΕΤΑΤΡΟΠΗ  ΒΑΣΗΣ  ΑΡΙΘΜΩΝ 


Παρουσιάζουμε  εδώ  ένα  πολύ  χρήσιμο  πρόγραμμα  που  βρίσκει  εφαρμογή  σε 
πολλά  προβλήματα.  Σου  δίνει  τη  δυνατότητα  να  μετατρέπεις  αριθμούς  από 
ένα  σύστημα  σε  ένα  άλλο  με  διαφορετική  βάση.· 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Διάλεξε  τη  μετατροπή  που  επιθυμείς. 


10  ΒΕΜ  Μετατροπή  βάσης  αριθμών 
20  ΡΑΡΕΒ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1: ΙΝΚ  1,24 
40  ΒΟΡΘΕΡ  1 
50  Μ0ΘΕ  1 

60  ΡΡΙΝΤ  ΤΑΒ(9)  «ΜΕΤΑΤΡΟΠΗ  ΒΑΣΗΣ  ΑΡΙΘΜΩΝ» 

70  ΡΡΙΝΤ  ΤΑΒ(9)"********************** *  * " 

80  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

90  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΔΕΧΕΤΑΙ  ΑΚΕΡΑΙΟΥΣ  ΑΡΙΘΜΟΥΣ» 
100  ΡΡΙΝΤ  «ΜΕΤΑΞΥ  0  ΚΑΙ  65535»  65535.” 

110  605υΒ  1200:  ΒΕΜ  Πάτησε  ένα  πλήκτρο 

120  : 

130  ΗΗΙΕΕ  3%<>5 
140  3%=0 

150  :  0Ε5 

160  :  ΡΡΙΝΤ«ΠΑΝΑΕΠΙΛΕΗΕΙΣΤΗ  ΜΕΤΑΤΡΟΠΗ  ΠΟΥ  ΘΕΛΕΙΣ»" 

170  :  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΑΠΟ  ΤΑ  ΠΑΡΑΚΑΤΩ  ΠΛΗΚΤΡΑ;» 

180  :  ΕΟΟΑΤΕ  1,8 

190  :  ΡΡΙΝΤ  ΤΑΒ( 4) «ΠΛΗΚΤΡΟ  I  -  ΔΕΚΑΕΞΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΔΙΚΟ» 
200  :  ΡΡΙΝΤ 

210  :  ΡΡΙΝΤ  ΤΑΒ( 4) «ΠΛΗΚΤΡΟ  2  -  ΔΕΚΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΕΞΑΔΙΚΟ» 
220  :  ΡΡΙΝΤ 

230  :  ΡΡΙΝΤ  ΤΑΒ( 4) «ΠΛΗΚΤΡΟ  3  -  ΔΥΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΔΙΚΟ» 

240  :  ΡΡΙΝΤ 

250  :  ΡΡΙΝΤ  ΤΑΒ(4 )  «ΠΛΗΚΤΡΟ  4  -  ΔΕΚΑΔΙΚΟΣ  ΣΕ  ΔΥΑΔΙΚΟ» 

260  :  ΡΡΙΝΤ 

270  :  ΡΡΙΝΤ  ΤΑΒ(4)«ΠΛΗΚΤΡΟ  5  -  ΤΕΡΜΑΤΙΖΕΙ  ΤΟ  ΠΡΟΓΡΑΜΑ» 
280  : 

290  :  ΗΗΙΕΕ  3%>5  0Ρ  3%<1 

300  :  3$=ΙΝΚΕΥ$:ΙΡ  3$="”  ΤΗΕΝ  300 

310  :  3%=Α50(3$)-48 

320  :  ΗΕΝΘ 

330  : 

340  :  ό3ά=1 

350  :  ΟΝ  3%  605υΒ  420,670,800,1010 

360  ΗΕΝ0 

370  0Ε5 

380  ΕΝΟ 

390  : 

400  : 

410  ΒΕΜ  Δεκαεξαδικός  σε  δεκαδικό 
420  ΗΗΙΕΕ  03(1=1 
430  :  0Ε5 

440  :  ΡΡΙΝΤ  ΤΑΒ(  13)  «ΔΕΚΑΕΞΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΔΙΚΟ» 

450  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

460  :  ΙΝΡυΤ  «ΠΟΙΟΣ  ΕΙΝΑΙ  Ο  ΔΕΚΑΕΞΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ»;Η$ 
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470  :  ο)ο=0 

480  :  6$=υΡΡΕΒ$(6$) 

490  :  ΡΟΗ  η=1  ΤΟ  ΕΕΝ(6$) 

500  :  6χ=Α50(ΜΙΘ$(6$,η,1)) 

510  :  1)30=1 

520  :  ΙΡ  Ιίχ>47  ΑΝΘ  Πχ<58  ΤΗΕΝ  Ι)χ=6χ-48: 63(1=0 

530  :  ΙΡ  6χ>64  ΑΝΘ  Πχ<71  ΤΗΕΝ  6χ=6χ-55:  63(1=0 

540  :  ΙΡ  63(1=1  ΤΗΕΝ  η=ΕΕΝ(6$) 

550  :  (1=Ιιχ*16ΑαΕΝ(65)-η) 

560  :  άο=£ΐε+ύ 

570  :  ΝΕΧΤ 

580  :  ΙΡ  ΕΕΝ(6$)>4  ΤΗΕΝ  03(1=1 

590  ΜΕΝΘ 

600  ΡΡΙΝΤ: ΡΡΙΝΤ 

610  ΡΡ I ΝΤ  «Ο  ΔΕΚΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ  ΕΙΝΑΙ  0>>;<1ο 

620  οοευβ  1200 

630  ΡΕΤυΡΝ 
640  : 

650  : 

660  ΡΕΜ  Δεκαδικός  σε  δεκαεξαδικό 
670  ΗΗΙΕΕ  63(1=1 

680  :  α$ 

690  :  ΡΡΙΝΤ  ΤΑΒ(  13)  «ΔΕΚΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΕΞΑΔΙΚΟ» 

700  :  6051ΙΒ  1130:  ΡΕΜ  "Ελεγχος  δεκαδικού  αριθμού 

710  ΜΕΝΘ 

720  ΡΡΙΝΤ: ΡΡΙΝΤ 

730  ΡΡΙΝΤ  «Ο  ΔΕΚΑΕΞΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ  ΕΙΝΑΙ  Ο»;  ΗΕΧ5(06εη) 

740  60$ϋΒ  1200 
750  ΡΕΤυΡΝ 
760  : 

770  : 

780  : 

790  ΡΕΜ  Δυαδικός  σε  δεκαδικό 
800  ΗΗΙΙΕ  63(1=1 

810  :  α$ 

820  :  ΡΡΙΝΤ  ΤΑΒ(  11)  «ΔΥΑΔΙΚΟΣ  ΣΕ  ΔΕΚΑΔΙΚΟ·. 

830  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

840  :  ΙΝΡΙΙΤ  «Ο  ΔΥΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ  ΕΙΝΑΙ  Ο»;  6$ 

850  :  άο=0 

860  :  ΡΟΡ  η=1  ΤΟ  ΕΕΝ(6$) 

870  :  6η=Α$αΜΙΘ$(6$,η,1)) 

880  :  ΙΡ  6η>47  ΑΝΘ  6η<50  ΤΗΕΝ  6η=6η-48: 636=0: Ε15Ε  63(1=1 

890  :  ΙΡ  63(1=1  ΤΗΕΝ  η=ΕΕΝ(6$) 

900  :  6=6η*2Α(ΕΕΝ(6$)-η) 

910  : 

920  :  ΝΕΧΤ 

930  :  ΙΡ  1_ΕΝ(  6$)>16  ΤΗΕΝ  63(1=1 

940  ΜΕΝΘ 

950  ΡΡΙΝΤ:ΡΡΙΝΤ 

960  ΡΡΙΝΤ  «Ο  ΔΕΚΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ  ΕΙΝΑΙ  Ο-ιόο 
970  605118  1200 
980  ΡΕΤϋΡΝ 
990  : 

1000  ΡΕΜ  Δεκαδικόςσε  δυαδικό 
1010  ΜΗΙΕΕ  63(1=1 
1020  :  01$ 

1030  :  ΡΡΙΝΤ  ΤΑΒ(  11)  «ΔΕΚΑΔΙΚΟΣ  ΣΕ  ΔΥΑΔΙΚΟ» 

1040  :  60$1)Β  1 130:  ΡΕΜ  "Ελεγχος  δεκαδικού  αριθμού 

1050  ΚΕΝΟ 

1060  ΡΡΙΝΤ : ΡΡΙΝΤ 

1070  ΡΡΙΝΤ  «Ο  ΔΥΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ  ΕΙΝΑΙ  Ο»;  ΒΙΝ  5  Μβοη  16) 

1080  60$ΙΙΒ  1200  1  *  ' 

1090  ΡΕΤυΡΝ 
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1100  : 

1110  : 

1120  ΚΕΜ  Έλεγχος  δεκαδικού  αριθμού 
1130  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

1140  ΙΝΡυΤ«ΠΟΙΟΣ  ΕΙΝΑΙ  Ο  ΔΕΚΑΔΙΚΟΣ  ΑΡΙΘΜΟΣ»;  άεοη 
1150  ΙΕ  <ΐ6εη>-1  ΑΝΘ  ε)θοη<65536  ΤΗΕΝ  &3ά=0 
1160  ΚΕΤυΚΝ 
1170  : 

1180  : 

1190  ΚΕΜ  Πάτησε  ένα  πλήκτρο 

1200  ρκιντ:ρκιντ:ρκιντ 

1210  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΔΕΙΣ  ΤΙΣ  ΛΕΙΤΟΥΡΓΙΕΣ  ΤΟΥ» 
:  ΡΚΙΝΤ  «ΠΡΟΓΡΑΜΜΑΤΟΣ» 

1220  3$=ΙΝΚΕΥ$:ΙΡ  3$=’"'  ΤΗΕΝ  1220 
1230  ΚΕΤυΚΝ 
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Π84  ΚΩΔΙΚΕΣ  ΧΡΩΜΑΤΩΝ  ΓΙΑ  ΑΝΤΙΣΤΑΣΕΙΣ 


Αυτό  είναι  ένα  χρήσιμο  πρόγραμμα  για  κάθε  εργαστήριο  ηλεκτρονικών. 
Μπορείς  με  αυτό  να  υπολογίσεις  την  τιμή  μιας  αντίστασης  απο  τον  κώδικα 
των  χρωμάτων  που  φέρει  ή  να  υπολογίσεις  τον  κώδικα  των  χρωμάτων  της 
από  την  τιμή  της.  Το  πρόγραμμα  εφαρμόζεται  μόνο  στις  αντιστάσεις  που  φέ¬ 
ρουν  ζώνες  χρωμάτων  όπως  αυτή  που  παρουσιάζεται  στο  παρακάτω  σχήμα. 


ΓΤΊ 

Γ. 

ΧΡΩΜΑ  1 

ΧΡ 

ΏΜΑ  2  1 

ΧΡΩ 

ΜΑ  3 

ΑΝΟΧΗ 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Κώδικες  χρωμάτων  για  αντιστάσεις 
20  ΡΕΝ  1:  ΙΝΚ  1,2-4 
30  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
40  ΒΟΡΡΕΡ  1 
50  Μ0ΡΕ  1 

60  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΚΩΔΙΚΕΣ  ΧΡΩΜΑΤΩΝ  ΓΙΑ  ΑΝΤΙΣΤΑΣΕΙΣ» 

70  ΡΡΙΝΤ  ΤΑΒ( 10) "**********************  ***»**»»* *« 

80  ΙΟΟΑΤΕ  1,6 

90  ΡΡΙΝΤ  «ΜΕ  ΑΥΤΟ  ΊΟ  ΠΡΟΓΡΑΜΜΑ  ΜΠΟΡΕΙΣ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ» 
100  ΡΡΙΝΤ  «ΤΗΝ  ΤΙΜΗ  ΜΙΑΣ  ΑΝΤΙΣΤΑΣΗΣ  ΑΠΟ  ΤΟΝ  ΚΩΔΙΚΑ  ΤΩΝ» 
110  ΡΡΙΝΤ  «ΧΡΩΜΑΤΩΝ  ΤΗΣΉ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ  ΤΟΝ  ΚΩΔΙΚΑ  ΤΩΝ» 
120  ΡΡΙΝΤ  «ΧΡΩΜΑΤΩΝ  ΤΗΣ  ΑΠΟ  ΤΗΝ  ΤΙΜΗ  ΤΗΣ» 

130  : 

140  ΡΙΜ  β$(13):ΡΕΜ  Εισαγωγή  χρωμάτων 
150  Ε0Ρ  η=1  ΤΟ  13 
160  :  ΡΕΑΡ  ό$(π) 

170  ΝΕΧΤ 
180  : 


190  Ο  ΑΤΑ,  μαύρο,  καφέ,  κόκκινο,  πορτοκαλί,  κίτρινο,  πράσινο 
200  ΟΑΤΑ  μπλέ,  μωβ,  γκρι,  άσπρο,  χρυσάφι,  ασημί,  κανένα 
210· 

220  6051ΙΒ  1470:  ΡΕΜ  Πάτημα  ενός  πλήκτρου 
230  : 


240  : 


250  ΗΗΙΕΕ  3<>3 

260  :  0ί5 

270  :  ΕΟΟΑΤΕ  1,4 

280  :  ΡΡΙΝΤ  «ΘΕΛΕΙΣ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ  ΤΗΝ  ΤΙΜΗ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ  Ή» 
290  :  ΡΡΙΝΤ  «ΤΟΝ  ΚΩΔΙΚΑ  ΤΩΝ  ΧΡΩΜΑΤΩΝ;» 

300  :  Ε00ΑΤΕ  8,8 

310  :  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  1  ΓΙΑ  ΤΗΝ  ΤΙΜΗ» 
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320 

330 

340 

350 


360 

370 

380 

390 

400 

410 


ΡΚΙΝΤ 

ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  2  ΓΙΑ  ΤΟΝ  ΚΩΔΙΚΑ  ΤΩΝ  ΧΡΩΜΑΤΩΝ» 
ΡΚΙΝΤ 


ΡΚΙΝΤ  ΤΑΒ(8);  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  3  ΓΙΑ  ΝΑ  ΤΕΡΜΑΤΙΣΕΙΣ» 
ΡΚΙΝΤ*  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

3$=”4" 

ΗΗΙΙΕ  3$<>"  1 "  ΑΝΰ  3$0"2"  ΑΝϋ  3$0"3" 

3$=ΙΝΚΕΥ$ 

ΗΕΝΡ 

3=νΑΙ.(3$) 

ΟΝ  3  60511Β  480,1020 
420  ν/ΕΝβ 
430  01.5 
440  ΕΝϋ 
450  : 

460  : 

470  ΚΕΜ  Τιμή  της  αντίστασης 

480  Π39=1 

490  ΗΗΠ.Ε  ίΐ39=1 


500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 


710  ΗΕΝΕ) 
720  : 


Ε1_5 

ΡΚΙΝΤ  ΤΑΒ(14);  «ΤΑ  ΧΡΩΜΑΤΑ  ΕΙΝΑΙ» 

ΡΚΙΝΤ 

ΡΟΚ  η=0  ΤΟ  9 

ΡΚΙΝΤ,  Ι3$(η+1),',=";η 
ΝΕΧΤ 

ρκιντ:ρκιντ 

ΡΚΙΝΤ  «ΒΑΛΕ  ΤΑ  ΤΡΙΑ  ΧΡΩΜΑΤΑ  ΣΑΝ  ΤΡΕΙΣ» 

ΡΚΙΝΤ  «ΑΡΙΘΜΟΥΣ  ΠΑΤΩΝΤΑΣ  ΣΤΗ  ΣΥΝΕΧΕΙΑ  ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΚ» 
ΡΚΙΝΤΙΡΚΙΝΤ 

ΡΚΙΝΤ  «ΓΙΑ  ΠΑΡΑΔΕΙΓΜΑ : » 

ΡΚΙΝΤ  «ΚΟΚΚΙΝΟ  -  ΜΑΥΡΟ  -  ΠΟΡΤΟΚΑΛΙ^  203» 

ΡΚΙΝΤ 

ΙΝΡυΤ  «ΠΟΙΑ  ΕΙΝΑΙ  ΤΑ  ΧΡΩΜΑΤΑ»;  οΐϊ 

ΡΟΚ  η=1  ΤΟ  Ι_ΕΝ(εΙ$) 

ςΚη)=Α50(ΜΙ0$(οΙ$,π,1))-48 

ΙΡ.  (1(η)<0  ΟΚ  ά(η)>9  ΤΗΕΝ  Ρΐ39=1  ΕΓ5Ε  1139=0 

ΙΡ  ίΐ39=1  ΤΗΕΝ  Π=1_ΕΝ(ε  1$) 

ΝΕΧΤ 

ΙΡ  Ι_ΕΝ(εΙ$)<>3  ΤΗΕΝ  Γ  139=1 


730  0Ε5 

740  ΕΟΟΑΤΕ  1,3 

750  ΡΚΙΝΤ  «ΤΟ  ΤΕΤΑΡΤΟ  ΧΡΩΜΑ  ΚΑΘΟΡΙΖΕΙ  ΤΗΝ  ΑΝΟΧΗ» 

760  ΡΚΙΝΤ  «ΕΔΩ  ΕΧΟΥΜΕ  ΤΙΣ  ΕΞΗΣ  ΠΕΡΙΠΤΩΣΕΙΣ:» 

770  ΡΚΙΝΤΙΡΚΙΝΤ 

780  ΡΟΚ  η=11  ΤΟ  13 

790  :  ΡΚΙΝΤ, η-10,1)$(η) 

800  ΝΕΧΤ 

810  ΡΚΙΝΤΙΡΚΙΝΤ 

820  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΤΑ  ΠΛΗΚΤΡΑ  1,  £  ή  3  ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΟ  ΧΡΩΜΑ» 

830  ΡΚΙΝΤ  «ΤΗΣ  ΑΝΟΧΗΣ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ.  ΚΑΘΕ  ΑΛΛΟ  ΠΛΗΚΤΡΟ  Ο  » 

840  ΡΚΙΝΤ  “ΥΠΟΛΟΓΙΣΤΗΣ ΤΟ  ΑΝΤΙΛΑΜΒΑΝΕΤΑΙ  ΣΑΝ  ΕΛΛΕΙΨΗ  ΤΕΤΑΡΤΟΥ» 
I  ΡΚΙΝΤ «  ΧΡΩΜΑΤΟΣ» 


850  ΡΚΙΝΤΙΡΚΙΝΤ 

860  ΙΝΡΙΙΤ  «ΕΠΙΛΟΓΗ  (1,2  ή  3)»;1$ 

870  ΙΡ  ΐ$<>"1"  ΑΝΟ  ΐ$<>"2"  ΤΗΕΝ 
880  ΐ=5*νΑ1-(ΐ$) 

890  ΙΡ  ΐ=15  ΤΗΕΝ  ί=20 
900  ι 

910  Γβ5=(  10*«Ι(1)+ςΙ(2) )*10  ύ(3) 


ΐ$="3" 
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920  α$ 

930  1_00 ΑΤΕ  4,4 

940  ΡΡΙΝΤ  «Η  ΤΙΜΗ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ  ΕΙΝΑΙ»;  τεδ;  «οΗγπ» 

950  ΕΟΟΑΤΕ  4,7 

960  ΡΡΙΝΤ  «Η  ΑΝΟΧΗ  ΤΗΣ  ΕΙΝΑΙ»;  I;  «%» 

970  005ϋΒ  1470: ΡΕΜ  Πάτημα  ενός  πλήκτρου 
980  ΡΕΤϋΡΝ 
990  : 

1000  : 

1010  ΡΕΜ  Εισαγωγή  κώδικα 
1020  ί  1.39=1 
1030  ΜΗΙΓΕ  Ηθ9=1 
1040  :  01_5 

1060  :  ΡΡ ΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΔΩΣΕ  ΤΗΝ  ΤΙΜΗ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ  ΣΕ  υΐιπι» 

1070  :  ΡΡΙΝΤ  «ΠΑΡΑΚΑΛΩ  ΝΑ  ΔΩΣΕΙΣ  ΜΟΝΟ  ΑΡΙΘΜΟΥΣ» 

1080  :  ΡΡΙΝΤ 

1090  :  ΡΡΙΝΤ  «ΤΙΜΕΣ  ΑΝΤΙΣΤΑΣΕΩΝ  ΜΙΚΡΟΤΕΡΕΣ  ΑΠΟ  ΙΟΟΕγπ» 

1100  :  ΡΡΙΝΤ  «Ή  ΜΕΓΑΛΥΤΕΡΕΣ  ΑΠΟ  99000000000  θήτη  ΔΕΝ» 

1110  :  ΡΡΙΝΤ  «ΚΑΛΥΠΤΟΝΤΑΙ"  ΑΠΟ  ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 

1120  :  ΡΡΙΝΤ:ΡΡΙΝΤ 

1 130  :  ΙΝΡυΤ  «ΤΙΜΗ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ  ΣΕ  ΟΗπι»;  βΐ 
1140  :  Γ5ί=ΙΝΤ(Γ5ΐ) 

1150  :  ΙΕ  Γ5ΐ>=10  ΑΝΩ  γκϊ<=9.9Ε+10  ΤΗΕΝ  11.39=0 
1160  :  Γ$ΐ$=δΤΡ$(Γ5ί) 

1170  ΜΕΝβ 
1180  : 

1190  0Ι_5 
1200  1_00  ΑΤΕ  1,4 

1210  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΑΠΟ  ΤΑ  ΠΛΗΚΤΡΑ  1,  2  η  3  ΑΝΑΛΟΓΑ  ΜΕ  ΤΟ  ΑΝ» 
1220  ΡΡΙΝΤ  “Η  ΑΝΟΧΗ  ΕΙΝΑΙ  5%,  10%,  ή  20%» 

1230  ΡΡΙΝΤ  «ΑΝΤΙΣΤΟΙΧΑ»  · 

1240  ΡΡΙΝΤ 

1250  ΡΡΙΝΤ  «ΚΑΘΕ  ΑΡΙΘΜΟ  ΕΚΤΟΣ  ΤΩΝ  1  ΚΑΙ  2  Ο  ΥΠΟΛΟΓΙΣΤΗΣ  ΤΟΝ» 

1260  ΡΡΙΝΤ  «ΑΝΤΙΛΑΜΒΑΝΕΤΑΙ  ΣΑΝ  ΑΝΟΧΗ  20%»' 

1270  ΡΡΙΝΤ: ΡΡΙΝΤ 

1280  ΙΝΡυΤ  «ΑΝΟΧΗ  (1,  2,  ή  3)»;  1$ 

1290  ΙΕ  1$<>*Ί"  ΑΝΘ  ΐ$<>"2"  ΤΗΕΝ  ΐ$="3" 

1300  : 

1310  0Ε5 

1320  Ε00ΑΤΕ  1,4 

1330  3(1)=νΑΕ(ΜΙΙ>$(Γ5ΐ$,2,1)) 

1340  3(2)=νΑΙ_(ΜΙΘ$(Γ5ΐ$,3,1)) 

1350  3(3)=ΕΕΝ(Γ5ΐ$)-3 
1360  3(4)=Α50(ΐ$)-39 
1370  : 

1380  Ε0Ρ  π=1  ΤΟ  4 

1390  :  ΡΡΙΝΤ,  «ΤΟ  ΧΡΩΜΑ»;  η;  «ΕΙΝΑΙ»»;  Ε  $  (β  (η)  +  1) 

1400  ΝΕΧΤ 
1410  : 

1420  6051ΙΒ  1470:  ΡΕΜ  Πάτημα -ενός  πλήκτρου 
1430  ΡΕΤϋΡΝ 
1440  : 

1450  : 

1460  ΡΕΜ  Αηχ  Κθγ 

1470  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

1480  3$  =  "":  ΡΕΜ  Κενός  αλφαριθμητικός  χαρακτήρας 

1490  ΡΡΙΝΤ  ΤΑΒ( 5)  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΠΑΡΕΙΣ  ΟΔΗΓΙΕΣ» 
1500  ΝΗΙΕΕ  ΕΕΝ(3$)=0:3ετΙΝΚΕΥ$:ΗΕΝ[> 

1510  ΡΕΤϋΡΝ 
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Π85  ΟΓΚΟΙ  ΣΤΕΡΕΩΝ 


Με  αυτό  το  πρόγραμμα  μπορείς  να  υπολογίζεις  όγκους  σφαιρών,  κυλίνδρων, 
κόνων  και  πυραμίδων. 

Μπορεί  να  επεκταθεί  και  να  περιλάβει  και  όγκους  άλλων  στερεών. 
ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΡΕΜ  Όγκοι  στερεών 

20  ΒΟΚΰΕΡ  1 

30  ΡΑΡΕΡ  0: ΙΝΚ  0,1 

40  ΡΕΝ  1 : ΙΝΚ  1,24 

50  ΜΟΰΕ  1 

60  ίΟΟΑΤΕ  10,3 

70  ΡΡΙΝΤ  «ΟΓΚΟΙ  ΣΤΕΡΕΩΝ» 

80  ΡΡΙΝΤ  ΤΑΒ( 10)"****************" 

90  ΙΟΟΑΤΕ  5,8 

100  ΡΡΙΝΤ  ΤΑΒ(5)  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  1  ΓΙΑ  ΣΦΑΙΡΑ» 

110  ΡΡΙΝΤ 

120  ΡΡΙΝΤ  ΤΑΒ( 5)  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  2  ΓΙΑ  ΚΥΛΙΝΔΡΟ» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  ΤΑΒ(5)  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  3  ΓΙΑ  ΚΩΝΟ  Ή  ΠΥΡΑΜΙΔΑ» 
150  ΡΡΙΝΤ  _ 

160  ΡΡΙΝΤ  Τ ΑΒ ( 5 )  «ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  4  ΓΙΑ  ΝΑ  ΣΤΑΜΑΤΗΣΕΙΣ» 
170  ΜΗΙΙΕ  3$0"1"  ΑΝΟ  3$<>"2"  ΑΝί  3$<>"3"  ΑΝ0  3$<>  4 
180  :  3$=ΙΝ<ΕΥ$ 

190  ΜΕΝϋ 

200  α$ 

210  3=νΑ1_(3$) 

220  ΙΕ  3=4  ΤΗΕΝ  ΕΝΡ 
230  ΟΝ  3  605υΒ  280,450,690 
240  ΡυΝ 
250  : 

260  : 

270  ΡΕΜ  Σφαίρα 

280  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΟΓΚΟΣ  ΣΦΑΙΡΑΣ» 

290  ΡΡΙΝΤ  ΤΑΒ( 10)"******************“ 

300  Γά=-1 
310  ίΟΟΑΤΕ  1,6 
320  ΗΗΙίΕ  Γ ά<0 

330  :  ΙΝΡ0Τ «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΑΚΤΙΝΑ»;  κΐ 
340  ΜΕΝΟ 
350  : 

360  ν  1=4*ΡΙ*Γά*Γά*Γά/3 

370  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

380  ΡΡΙΝΤ  «Ο  όγκος  σφαίρας  με  ακτίνα»;  τά 

390  ΡΡΙΝΤ 

400  ΡΡ ΙΝΤ  «ΕΙΝΑΙ»;  ν! 

410  60$υΒ  1490 
420  ΡΕΤυΡΝ 
430  : 

440  : 

450  ΡΕΜ  Κύλινδρος 
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460  ΡΚΙΝΤ  ΤΑΒ ( 10)  "ΟΓΚΟΣ  ΚΥΛΙΝΔΡΟΥ.. 

470  ΡΚΙΝΤ  ΤΑΒ( 10) "********************" 

480  Κΐ=-1 
490  ΕΟΟΑΤΕ  1,6 
500  ΜΗΙΙΕ  ΚΚΟ 

510  :  ΙΝΡυΤ«ΠΟΣΟ  ΕΙΝΑΙ  ΤΟ  ΥΨΟΣ»;  Μ 

520  ΗΕΝ0 

530  ΡΚΙΝΚΡΚΙΝΤ 

540  Γ(Ι=-1 

550  ΝΗΙΕΕ  γ0<0 

560  :  ΙΝΡίΙΤ  «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΑΚΤΙΝΑ  ΤΗΣ  ΒΑΣΗΣ»;  γ8 
570  ΜΕΝβ 

580  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

590  ΡΚΙΝΤ  «Ο  ΟΓΚΟΣ  ΚΥΛΙΝΔΡΟΥ  ΜΕ  Α ΚΤΙΝ Α ΒΑΣΗΣ»;  τ&,  »ΚΑΙ  ΥΨΟΣ»;  Μ 
600  ΡΚΙΝΤ 

610  ΡΚΙΝΤ'«ΕΙΝΑΙ»;  γ<1;  ΚΑΙ  ΥΨΟΣ»;  Κι 
620  ΡΚΙΝΤ 

630  ΡΚΙΝΤ  «ΕΙΝΑΙ»;  ΡΙ  *  κΐ  *  κΐ  *  Κι 
640  6051ΙΒ  1490 
650  ΚΕΤυΚΝ 
660  : 

670  : 

680  ΚΕΜ  Κώνος 

690  ΡΚΙΝΤ  ΤΑΒ(  11)  «ΟΓΚΟΣ  ΚΩΝΟΥ». 

700  ΡΚΙΝΤ  ΤΑΒ(·1 1  )"****************" 

710  ΕΟΟΑΤΕ  1,6 

720  ΙΝΡυΤ  «ΓΝΩΡΙΖΕΙΣ  ΤΑ  ΕΜΒΑΔΑ  ΤΗΣ  ΒΑΣΗΣ»;  γ$ 

730  ΙΡ  ΕΕΡΤ$(χ$,1)='ν"  0Κ  ΙΕΡΤ$(χ$,1)=,·,Υ··  ΤΗΕΝ  Υ=1  ΕΕ5Ε  Υ=2 

740  ΟΝ  Υ  6051)8  910,1000 

750  ΡΚΙΝΤ 

760  Κΐ=-1 

770  ΜΗΙΓΕ  Ριΐ<0 

780  :  ΙΝΡυΤ  «ΠΟΣΟ  ΕΙΝΑΙ  ΤΟ  ΥΨΟΣ»;  ΚΙ 

790  ΚΕΝΟ 

800  ΡΚΙΝΤ: ΡΚΙΝΤ 

810  ΡΚΙΝΤ  «Ο  ΟΓΚΟΣ  ΚΩΝΟΥ  ΜΕ  ΕΜΒΑΔΟ» 

820  ΡΚΙΝΤ 

830  ΡΚΙΝΤ  «ΒΑΣΗΣ»;  3γ;  «ΚΑΙ  ΥΨΟΣ»;  Κι 
840  ΡΚΙΝΤ 

850  ΡΚΙΝΤ  «ΕΙΝΑΙ»;  3Γ  *  Κι  /2 
860  60$υΒ  1490 
870  ΚΕΤυΚΝ 
880  : 

890  : 

900  ΚΕΜ  Εισαγωγή  εμβαδοι)  βάσης 
910  ΡΚΙΝΤ: ΡΚΙΝΤ 
920  3Γ=-1 
930  ΜΗΙΕΕ  3Γ<0 

940  :  ΙΝΡίΙΤ  «ΠΟΣΟ  ΕΙΝΑΙ  ΤΟ  ΕΜΒΑΔΟ»;  3γ 
950  ΜΕΝϋ 
960  ΚΕΤυΚΝ 


970  : 

980  : 

990  ΚΕΜ  Επιλογή  σχήματος  βάσης 
1000  ΡΚΙΝΤ: ΡΚΙΝΤ 

1010  ΡΚΙΝΤ  «ΔΙΑΛΕΞΕ ΤΟ  ΣΧΗΜΑ  ΤΗΣ  ΒΑΣΗΣ  ΠΑΤΩΝΤΑΣ ΤΟ·* 


1020 

1030 

1040 

1050 

1060 

1070 

1080 


ΡΚΙΝΤ 

ΡΚΙΝΤ 

ΡΚΙΝΤ 

ΡΚΙΝΤ 

ΡΚΙΝΤ 

ΜΗΙΕΕ 

: 


•ΠΛΗΚΤΡΟ  I  ΓΙΑ  ΙΣΟΠΛΕΥΡΟ  ΤΡΙΓΩΝΟ» 
■ΠΛΗΚΤΡΟ  2  ΓΙΑ  ΤΕΤΡΑΓΩΝΟ» 
■ΠΛΗΚΤΡΟ  3  ΓΙΑ  ΚΥΚΛΟ» 


ο$<>"1" 

ΙΝΚΕΥ3 


ΑΝϋ  ε$<>"2"  ΑΝ0  ε$<>"3" 
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1090  ΝΕΝϋ 
1100  α=νΑΙ_( ) 

1110  ΟΝ  ε  6051ΙΒ  1220,1310,1400 
1120  : 

1130  01_5 

1140  ΡΚΙΝΤ  ΤΑΒ(  11)  «ΟΓΚΟΣ  ΚΩΝΟΥ» 

1150  ΡΚΙΝΤ  ΤΑΒ( 11)"****************" 

1160  1_00  ΑΤΕ  1,6 

1170  ΡΚΙΝΤ  «ΤΟ  ΕΜΒΑΔΟΝ  ΤΗΣ  ΒΑΣΗΣ  ΕΙΝΑΙ»·  άτ 
1180  ΚΕΤΙΙΚΝ 
1190  : 

1200  : 

1210  ΚΕΜ  Τρίγωνο 
1220  3ά=-1 
1230  ΜΗΙΕΕ  5(Κ0 

1240  :  ΙΝΡυΤ  «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΠΛΕΥΡΑ  ΤΟΥ  ΤΡΙΓΩΝΟΥ»; 

1250  ΜΕΝϋ 

1260  3Γ=0. 5*5(1*  δεΙ*$ΙΝ(ΡΙ/2) 

1270  ΚΕΤυΚΝ 
1280  : 

1290  : 

1300  ΚΕΜ  Τετράγωνο 
1310  5(1=—  1 
1320  ΗΗΙΕΕ  5(Κ0 

1330  :  ΙΝΡυΤ  «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΠΛΕΥΡΑ  ΤΟΥ  ΤΕΤΡΑΓΩΝΟΥ»;  κΐ 

1340  ΜΕΝί 

1350  3Γ  =  5(1*5(1 

1360  ΚΕΤυΚΝ 

1370  : 

1380  : 

1390  ΚΕΜ  Κύκλος 
1400  Γϋ=-1 
1410  ΜΗΙΕΕ  Γ(Κ0 

1420  :  ΙΝΡυΤ  «ΠΟΣΗ  ΕΙΝΑΙ  Η  ΑΚΤΙΝΑ  ΤΟΥ  ΚΥΚΛΟΥ»;  τά 

1430  ΜΕΝΡ 

1440  3Γ=ΡΙ*π1*Γ(1 

1450  ΚΕΤυΚΝ 

1460  : 

1470  : 

1480  ΚΕΜ  Πάτημα  ενός  πλήκτρου 
1490  ΡΚΙΝΤ: ΡΚΙΝΤ : ΡΚΙΝΤ 

1500  ΡΚΙΝΤ  ΤΑΒ(  8)  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΓΥΡΙΣΕΙΣ  ΣΤΗΝ  ΑΡΧΗ» 
1510  ΜΗΙΕΕ  ΕΕΝ(Ιο5)=0:  6$=ΙΝΚΕΥ$:ΜΕΝΰ 
1520  ΚΕΤυΚΝ 
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ΠΕΙΡΑΜΑΤΑ  ΦΥΣΙΚΗΣ  I  ΚΑΙ  2 


Τα  επόμενα  δύο  προγράμματα  αποτελούν  μια  προσπάθεια  επίδειξης  του  τρό¬ 
που  με  τον  οποίο  ένας  μικροϋπολογιστής  μπορεί  να  χρησιμοποιηθεί  σε  ένα 
εργαστήριο  φυσικής,  για  να  απαλλάξει  τον  ασκούμενο  μαθητή  ή  τον  ερευ¬ 
νητή  από  ένα  μεγάλο  μέρος  της  ρουτινιάρικης  εργασίας  που  απαιτείται  για 
τον  υπολογισμό  των  αποτελεσμάτων  ενός  πειράματος. 

Τα  προγράμματα  βασίζονται  σε  δύο  πειράματα  που  περιέχονται  στο  βιβλίο 
του  Ρ.  Τγ1ετ,  «Α  Ι^βοΓαΙοιγ  Μεηυαΐ  οί  ΡΗγείοε»  (Εγχειρίδιο  πειραμάτων  Φυ¬ 
σικής),  Εάλνατά  Ατηοΐά,  1966. 

ΕΝΤΟΛΕΣ 

Χρησιμοποίησε  τα  φύλλα  εργαστηριακών  ασκήσεων  και  τα  προγράμματα 
για  να  εκτελέσεις  τα  πειράματα. 


Π86  ΠΕΙΡΑΜΑ  1  -  ΡΟΠΗ  ΑΔΡΑΝΕΙΑΣ 

Φύλλο  εργαστηριακών  ασκήσεων  1 
Υπολογισμός  της  ροπής  αδράνειας  σφονδύλου. 


Πειραματική  συσκευή 


Αποτελείται  κατ’  αρχήν  από  ένα  σφόνδυλο  τοποθετημένη  σε  σταθερό  ύψος 
πάνω  από  το  έδαφος.  Ένα  σώμα  δένεται  στην  άκρη  ενός  μη  εκτατού  νήμα¬ 
τος,  που  περιτυλίγεται  γύρω  από  τον  άξονα  τον  σφονδύλου.  Η  άλλη  άκρη 
του  νήματος  περνιέται  μέσα  από  μια  τρύπα,  που  ανοίγεται  στον  άξονα  για  το 
σκοπό  αυτό.  Το  μήκος  του  νήματος  υπολογίζεται  έτσι  ώστε  να  αποδεσμεύε- 
ται  από  τον  άξονα  μόλις  το  σώμα  συναντά  το  έδαφος.  Επίσης  απαιτούνται  τα 
εξής  όργανα:  παχύμετρο,  ζυγός,  χρονόμετρο,  μέτρο. 

Μέθοδος 

Η  μάζα  πι  υπολογίζεται  με  ζυγό,  η  δε  ακτίνα  γ  με  παχύμετρο. 

Το  σώμα  (ηι)  αφήνεται  να  πέσει  ελεύθερα  στο  έδαφος  διανύοντας  γνωστή  α¬ 
πόσταση  (ε)  και  σημειώνεται  ο  χρόνος  (ΐ)  που  πέρασε,  με  τη  βοήθεια  του 
χρονομέτρου.  Ο  αριθμός  των  περιστροφών  (η)  του  σφονδύλου  υπολογίζεται 
από  την  παρατήρηση  ενός  σημείου  Ρ  της  περιφέρειάς  του.  Επίσης  υπολογί¬ 
ζεται  με  τον  ίδιο  τρόπο  ο  αριθμός  των  περιστροφών  (ρ)  του  σφονδύλου,  από 
τη  στιγμή,  που  το  σώμα  (ιη)  φθάνει  στο  έδαφος  μέχρι  τη  στιγμή  που  ο  σφόν¬ 
δυλος  ηρεμεί.  Το  πείραμα  επαναλαμβάνεται  τρεις  φορές  για  την  ίδια  από¬ 
σταση  (δ). 

Η  διαδικασία  εκτέλεσης  του  πειράματος  είναι  η  εξής: 

Βάλε  σε  λειτουργία  τον  μικροϋπολογιστή. 

Φόρτωσε  το  πρόγραμμα. 

Πάρε  τις  μετρήσεις  για  τα  ιη,  γ  καί  δ 
Τρέξε  το  πρόγραμμα. 

Εκτέλεσε  το  πείραμα  σύμφωνα  με  τις  οδηγίες  και  δώσε  τις  τιμές  όταν  σου  ζη¬ 
τηθεί. 


10  ΡΕΜ  Ροπή  αδράνειας 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,24 
30  ΙΝΚ  1,1 
40  ΙΝΚ  2,6 
50  ΡΑΡΕΡ  0 
60  ΡΕΝ  1 
70  Β0Η0ΕΡ  24 
80  ΜΟύΕ  1 

90  ΡΡΙΝΤ  ΤΑΒ( 8 )"************************" 
100  ΡΡΙΝΤ  ΤΑΒ(8)"*  *" 

110  ΡΡΙΝΤ  ΤΑΒ(8)“*  ΠΕΙΡΑΜΑ  ΦΥΣΙΚΗΣ  I  *" 

120  ΡΡΙΝΤ  ΤΑΒ(8)"*  *" 

130  ΡΡΙΝΤ  Τ ΑΒ { 8 ) "λ***********************" 
140  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 
150  ΡΕΝ  2 

160  ΡΡΙΝΤ  ΤΑΒ(11>" - - - " 

170  ΡΡΙΝΤ  ΤΑΒ<  11)  «ΡΟΠΗ  ΑΔΡΑΝΕΙΑΣ» 

180  ΡΡΙΝΤ  Τ  ΑΒ ( 17) «ΕΝΟΣ» 

190  ΡΡΙΝΤ  ΤΑ8(  15)  «ΣΦΟΝΔΥΛΟΥ» 
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200  ΡΡΙΝΤ  ΤΑΒ(11)" - " 

210  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 
220  ΡΕΝ  1 

230  ΡΡΙΝΤ  ΤΑΒ(9) «ΠΑΡΑΚΑΛΩ  ΔΙΑΒΑΣΕ  ΤΟ  ΦΥΛΛΟ  ΕΡΓΑΣΤΗΡΙΑΚΩΝ 
:  ΡΡΙΝΤ  ΑΣΚΗΣΕΩΝ  I.» 

240  ΡΡΙΝΤ 
250  ΡΕΝ  2 

260  ΡΡΙΝΤ  ΤΑΒ(7) «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΜΟΛΙΣ  ΕΙΣΑΙ  ΕΤΟΙΜΟΣ» 
270  3$=ΙΝΚΕΥ$:  ΙΡ  ΟΕΝ(3$)=0  ΤΗΕΝ  270 


280  : 

290  /$=·’/’ 

300  ΜΗΙΟΕ  1_0ΜΕΡ$(/$)='ν' 

310  :  γ=0:πι=0:5=0 

320  :  005 

330  :  ΡΕΝ  1 

340  :  ΙΝΡυΤ  «ΑΚΤΙΝΑ  ΑΞΟΝΑ  (αη)»;  γ 
350  :  γ=γ/100 

360  :  ΡΡΙΝΤ 

370  :  ΙΝΡΙΙΤ  «ΜΑΖΑ  ΣΩΜΑΤΟΣ  (Κβ)»;  ιη. 

380  :  ΡΡΙΝΤ 

390  :’  ΙΝΡυΤ  «ΑΠΟΣΤΑΣΗ  ΑΠΟ  ΤΟ  ΕΔΑΦΟΣ  (οιη)*>;  5 
400  :  5=5/100 

410  : 

420  :  ΐΐ=0:ηη=0:ρρ=0 

430  :  ΕΟΡ  0=1  ΤΟ  3 
440  :  005 

450  :  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΕΚΤΕΛΕΣΗ  ΤΟΥ  ΠΕΙΡΑΜΑΤΟΣ» 

460  :  '  ΟΟΟΑΤΕ  16,5 

470  :  ΡΕΝ  2 

480  :  ΡΡΙΝΤ"ΡυΝ”;0 

490  :  ΡΡΙΝΤ  ΤΑΒ( 16)"*****" 

500  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

510  :  ΡΕΝ  1 

520  :  ΙΝΡΙΙΤ  «ΧΡΟΝΟΣ  (κα;)  »;  I 

530  :  ΡΡΙΝΤ 

540  :  ΙΝΡυΤ  «Ν  (στροφές)»;  η 

550  :  ΡΡΙΝΤ 

560  :  ΙΝΡΙΙΤ  «Ρ  (στροφές)»;  ρ 

570  :  ΐΐ=ΐΐ+ΐ 

580  :  ηη=ηη+η 

590  :  ρρ=ρρ+ρ 

600  :  ΝΕΧΤ 

610  : 

620  :  01.5 

630  :  9=9.81  :ΡΕΜ  Επιτάχυνση  οφειλόμενη  στη  βαρύτητα 

640  :  ΐ=ΐί/3:η=ηη/3: ρ=ρρ/3 

650  :  ΟΝ  ΕΡΡΟΡ  60Τ0  850 

660  :  ΐΐ=πι*Γ*Γ*(9*ΐ*Τ/5"1  )*ρ/(ρ+π) 

670  : 

680  :  ΟΟΟΑΤΕ  1,8 

690  :  ΡΕΝ  2  . 

700  :  ΡΡΙΝΤ  «ΡΟΠΗ  ΑΔΡΑΝΕΙΑΣ^  »; 

710  :  ΡΕΝ  1 

720  :  ΡΡΙΝΤ  υ5ΙΝ6  "ηηηη.ηη"; ϊΐ; 

730  :  ΡΕΝ  2 

740  :  ΡΡΙΝΤ"  «9-ΤΕΤΡ.  ΜΕΤΡ." 

750  :  ΡΡΙΝΤ"========-======-=================::== 

760  :  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 
770  :  ΡΕΝ  1 

780  :  ΙΝΡΙΙΤ  «ΑΛΛΟ  ΠΕΙΡΑΜΑ  (γ/η)»;  γϊ 

790  ΜΕΝΡ 
800  005 
810  ΕΝΟ 


II 
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820  : 

830  : 

840  ΚΕΜ  Ρουτίνα  λάθους 
850  ΕΟΟΑΤΕ  1,10 

860  ΡΚΙΝΤ  «ΛΑΘΟΣ  ΔΕΔΟΜΕΝΑ  -  ΔΕΝ  ΕΙΝΑΙ  ΔΥΝΑΤΟΣ  Ο  ΥΠΟΛΟΓΙΣΜΟΣ  ΤΩΝ» 
:  ΡΚΙΝΤ  «ΑΠΟΤΕΛΕΣΜΑΤΩΝ» 

870  ΡΚΙΝΤ 
880  ΡΕΝ  2 

890  ΡΚΙΝΤ  ΤΑΒ(5)  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΕΑΝΑΤΡΕΞΕΙ  ΤΟ  » 

:  ΡΚΙΝΤ  «ΠΡΟΓΡΑΜΜΑ» 

900  3$=ΙΝΚΕΥ$:ΐΡ  ΕΕΝ(θ$)=0  ΤΗΕΝ  900 
910  κυΝ 
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Π87  ΠΕΙΡΑΜΑ  2  -  ΕΣΤΙΑΚΗ  ΑΠΟΣΤΑΣΗ 


Φύλλο  εργαστηριακών  ασκήσεων  2 

Υπολογισμός  της  εστιακής  απόστασης  κοίλου  κάτοπτρου. 


Πειραματική  συσκευή 

Αποτελείται  από  ένα  κοίλο  κάτοπτρο,  τη  διάταξη  στερέωσής  του,  δύο  κινη¬ 
τά  στηρίγματα  με  σφιγκτήρες  και  ακίδες  και  ένα  βαθμονομημένο  κανόνα. 

Μέθοδος 

Η  ακίδα  -  αντικείμενο  Ο  τοποθετείται  σε  γνωστή  απόσταση  (ια)  άπό  το  κοίλο 
κάτοπτρο.  Η  θέση  του  ειδώλου  I  που  σχηματίζεται  από  την  ανάκλαση  στο 
κάτοπτρο  προσδιορίζεται  με  τη  μέθοδο  του  παραπετάσματος  και  στη  σημείο 
αυτό  τοποθετείται  η  δεύτερη  ακίδα  (ΕΡ).  Σημειώνεται, η  απόσταση  (ν)  της  α¬ 
κίδας  -  ειδώλου  από  το  κάτοπτρο.  Στη  συνέχεια  το  πείραμα  επαναλαμβάνε¬ 
ται  για  διάφορες  τιμές  της  απόστασης  ιι. 

Το  πρόγραμμα  χρησιμοποιείται  για  να  υπολογίσει  την  εστιακή  απόσταση 
του  κατόπτρου  για  κάθε  μέτρηση.  Ο  μέσος  όρος  αυτών  των  μετρήσεων  κα¬ 
θώς  και  η  τυπική  τους  απόκλιση  υπολογίζονται  και  παρουσιάζονται  στην  ο¬ 
θόνη. 
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10  Π  ΕΝ  Εστιακή  απόσταση 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,24 
30  ΙΝΚ  1,1 
40  ΙΝΚ  2,6 
50  ΡΑΡΕΡ  0 
60  ΡΕΝ  1 
70  ΒΟΡΰΕΡ  24 
80  ΜΟϋΕ  1 

90  ΡΡΙΝΤ  Τ Α8 ( 8 )"*************** *********“ 

100  ΡΡΙΝΤ  ΤΑΒ(8)  "*  *·■ 

110  ΡΡΙΝΤ  ΤΑΒ(8)  ”*  ΠΕΙΡΑΜΑ  ΦΥΣΙΚΗΣ  2  *" 

120  ΡΡΙΝΤ  ΤΑΒ(8)"*  *·■ 

130  ΡΡΙΝΤ  ΤΑΒ(8 )"************************" 

140  ρριντ:ρριντ:ρριντ 
150  ΡΕΝ  2 

160  ΡΡΙΝΤ  ΤΑΒ(  12)" - " 

170  ΡΡΙΝΤ  ΤΑΒ  (12)  «ΕΣΤΙΑΚΗ  ΑΠΟΣΤΑΣΗ» 

180  ΡΡΙΝΤ  Τ ΑΒ (18) «ΕΝΟΣ» 

190  ΡΡΙΝΤ  ΤΑΒ  (12)  «ΚΟΙΛΟΥ  ΚΑΤΟΠΤΡΟΥ» 

200  ΡΡΙΝΤ  ΤΑΒ(  12)" - " 

210  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 
220  ΡΕΝ  1 

230  ΡΡΙΝΤ  ΤΑΒ( 9)  «ΠΑΡΑΚΑΛΩ  ΔΙΑΒΑΣΕ  ΤΟ  ΦΥΛΛΟ  ΕΡΓΑΣΤΗΡΙΑΚΩΝ  ΑΣΚΗΣΕΩΝ  2» 

240  ΡΕΝ  2 

250  ΕΟΟΑΤΕ  8,19 

260  ΙΝΡϋΤ  «ΠΟΣΕΣ ΜΕΤΡΗΣΕΙΣ»; ηιε3% 

270  ΙΡ  ιτΐ63%<  1  ΤΗΕΝ  ΡΙΙΝ 
280  : 

290  ΟΝ  ΕΡΡΟΡ  60Τ0  770 
300  ν$=Ύ’ 

310  ΗΗΙΕΕ  Ε0ΚΕΡ$(/$)=,ν' 

320  :  5πι:=0:55ς=0 

330  :  ΡΟΡ  Κ=1  ΤΟ  γπθ3% 

340  :  0 1_5 

350  :  ΡΕΝ  1 

360  :  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΕΚΤΕΛΕΣΗ  ΤΟΥ  ΠΕΙΡΑΜΑΤΟΣ» 

370  :  ΕΟΟΑΤΕ  13,5 

380  :  ΡΕΝ  2 

390  :  ΡΡΙΝΤ  «ΜΕΤΡΗΣΗ»;  Ε 

400  :  ΡΡΙΝΤ  ΤΑΒ(13)"*************" 

410  :  ΡΡΙΝΤ: ΡΡΙΝΤ 

420  :  ΡΕΝ  1 

430  :  ΙΝΡυΤ  "υ  =  ",υ 

440  :  ΡΡΙΝΤ 

450  :  ΙΝΡυΤ  "V  =  ",ν 

460  :  ΐ=1/(1/υ+1/ν) 

470  :  5(η=5πη+Τ 

480  :  5$ς=53ρ+ΐ*Τ 

490  :  ΝΕΧΤ 
500  : 

510  :  0Ε$ 

520  :  πιη=5ΐη/ίτΐθ3% 

530  :  όν=$0Ρ($$η/πΐθ3%-ιηη*(ΐιη) 

540  :  ΕΟΟΑΤΕ  6,8 
550  :  ΡΕΝ  2 

560  :  ΡΡΙΝΤ  «ΜΕΣΟΣ  ΟΡΟΣ  ΕΣΤΙΑΚΗΣ  ΑΠΟΣΤΑΣΗΣ--; 

570  :  ΡΕΝ  1 

580  :  ΡΡΙΝΤ  υ5ΙΝ6  ”ίΜΝΜ.ί¥)Τ,·ΓΤ>η 
590  :  ΡΕΝ  2 

600  :  ΡΡΙΝΤ  ΤΑΒ(6)" - " 

610  :  ΡΡΙΝΤ : ΡΗ I ΝΤ 
620  :  ΡΕΝ  2 

630  :  ΡΡΙΝΤ  ΤΑΒ<7)'  «ΤΥΠΙΚΗ  ΑΠΟΚΛΙΣΗ=»; 
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640  :  ΡΕΝ  1 
650  :  ΡΡΙΝΤ  υ$ΙΝ6 
660  :  ΡΕΝ  2 

670  :  ΡΡΙΝΤ  ΤΑΒ(7)"============================" 

680  :  1_00 ΑΤΕ  7, 17 

690  :  ΡΕΝ  1 

700  :  ΙΝΡυϊ  «ΑΛΛΟ  ΠΕΙΡΑΜΑ  (γ/η)»;γ$ 

.710  ΜΕΝΰ 
720  01.5 
730  ΕΝϋ 
740  : 

750  : 

760  ΡΕΜ  Ρουτίνα  λάθους 
770  01.5 

780  1_00  ΑΤΕ  1,10 

790  ΡΡΙΝΤ  «ΛΑΘΟΣ  ΔΕΔΟΜΕΝΑ  -  ΔΕΝ  ΕΙΝΑΙ  ΔΥΝΑΤΟΣ  Ο  ΥΠΟΛΟΓΙΣΜΟΣ  ΤΩΝ» 

:  ΡΡΙΝΤ  «ΑΠΟΤΕΛΕΣΜΑΤΩΝ.» 

800  ΡΡΙΝΤ 
810  ΡΕΝ  2 

820  ΡΡΙΝΤ  ΤΑΒ ( 5 ><ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ.» 
830  3$=ΙΝΚΕΥ$:ΙΡ  Ι_ΕΝ(3$)=0  ΤΗΕΝ  830 
840  ΡυΝ 
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Π88  ΑΝΤΙΣΤΑΣΕΙΣ 


Αυτό  το  πρόγραμμα  υπολογίζει  την  ολική  αντίσταση  ενός  ηλεκτρικού  κυ¬ 
κλώματος  της  παρακάτω  μορφής: 


-α — ο - -□ — □ — Οι 

_□ — □. - -□ — □ — ο 

-□ — ο- . --ο — □ — π-  - 

_□ — α - -ο — □ — ο 

-□ — □— . —Η Π — Ο — 1=Η 


ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες  και  δώσε  τις  τιμές  των  αντιστάσεων  όταν  σου  ζητη¬ 
θεί. 


10  ΡΕΜ  Αντιστάσεις 
20  ΡΑΡΕΡ  0: ΙΝΚ  0,1 
30  ΡΕΝ  1: ΙΝΚ  1,24 
40  ΒΟΡΡΕΡ  1 
50  ΜΟΡΕ  1 
60  ΕΟΟΑΤΕ  15,2 
70  ΡΡΙΝΤ  «ΑΝΤΙΣΤΑΣΕΙΣ» 

80  ΙΟΟΑΤΕ  1,5 

90  ΡΡΙΝΤ «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΗΝ  ΑΝΤΙΣΤΑΣΗ  ΕΝΟΣ» 

100  ΡΡΙΝΤ  «ΚΥΚΛΩΜΑΤΟΣ  ΠΟΥ  ΑΠΟΤΕΛΕΙΤΑΙ  ΑΠΟ  ΕΝΑΝ  ΑΡΙΘΜΟ  ΚΛΑΔΩΝ» 
110  ΡΡΙΝΤ  «ΟΙ  ΟΠΟΙΟΙ  ΣΥΝΔΕΟΝΤΑΙ  ΠΑΡΑΛΛΗΛΑ  ΚΑΙ  ΚΑΘΕ» 

120  ΡΡΙΝΤ  «ΕΝΑΣ  ΑΠΟΤΕΛΕΙΤΑΙ  ΑΠΟ  ΜΙΑ  Η  ΠΕΡΙΣΣΟΤΕΡΕΣ» 

130  ΡΡΙΝΤ  «ΑΝΤΙΣΤΑΣΕΙΣ  ΣΥΝΔΕΔΕΜΕΝΕΣ  ΣΤΗ  ΣΕΙΡΑ» 

140  ΕΟΟΑΤΕ  1,15 

150  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

160  ΜΗ I Ι_Ε  Ι_ΕΝ(3$)=0:  3$=ΙΝΚΕΥ$:ΗΕΝΡ 
170  : 

180  0ί$ 

190  ΜΗ 1 1_ Ε  13Γ%<1 

200  :  ΙΝΡυΤ «ΑΡΙΘΜΟΣ  ΚΛΑΔΩΝ»;  \>τ% 

210  ΗΕΝΡ 
220  : 

230  Ρ0Ρ  π=1  ΤΟ  6γ% 

240  :  0051ΙΒ  570:  ΡΕΜ  Αριθμός  κλάδου 
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250  : 

260  :  Γδ%=-1 

270  :  ΜΗ 1 1_Ε  Γ5%<1 

280  :  I ΝΡυϊ  «ΑΡΙΘΜΟΣ  ΑΝΤΙΣΤΑΣΕΩΝ»;  Γ8% 

290  :  ΗΕΝΘ 
300  : 

310  :  ΡΟΡ  Κ=1  ΤΟ  γ 5% 

320  :  60$υΒ  570:  ΡΕΜ  Αριθμός  κλάδων 

330  :  ν 1=-1 

340  :  ΜΗ 1 1_Ε  νΚΟ 

350  :  ΡΡΙΝΤ  «ΤΙΜΗ  ΤΗΣ  ΑΝΤΙΣΤΑΣΗΣ»;  λ; 

360  :  ΙΝΡυΤ  νΐ 

370  :  ΗΕΝΘ 

380  :  Ρ(η)=Ρ(η)+νΙ 

390  :  ΝΕΧΤ 

400  :  ΙΡ  Ρ(η)=0  ΤΗΕΝ  ζθγ=1:π=1)Γ%  Ε15Ε  ςη={:η+1/Ρ(η) 

410  ΝΕΧΤ 
420  : 

430  ΙΡ  ζθγ-1  ΤΗΕΝ  ΐΐ  1=0  ΕΙ_5Ε  ΐΐΙ  =  1/οη 
440  0Ι_5 

450  ΙΟΟΑΤΕ  9,9 

460  ΡΡΙΝΤ" Η  ΟΛΙΚΗ  ΑΝΤΙΣΤΑΣΗ  ΕΙΝΑΙ" 

470  ΙΟΟΑΤΕ  8,11 
480  ΡΡΙΝΤ  ΐίΙ;"οΗιη" 

490  ΙΟΟΑΤΕ  9,22 

500  ΙΝΡΙΙΤ  «ΑΛΛΟ  ΚΥΚΛΩΜΑ  (Υ/Ν)»;  *$ 

510  ΙΡ  1_ΕΡΤ$(χ$,1)="ΥΜ  ΟΡ  ΙΕΡΤ$(γ$,1  )=Ύ'  ΤΗΕΝ  ΡυΝ 
520  ΟΙ_δ 
530  ΕΝΘ 
540  : 

550  : 

560  ΡΕΜ  Παρουσίαση  αριθμού  κλάδων 
570  01.5 

580  ΕΟΟΑΤΕ  15,3 
590  ΡΡΙΝΤ  «ΚΛΑΔΟΣ»;  η 
600  ΕΟΟΑΤΕ  1,6 
610  ΡΕΤυΡΝ 
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Π89  ΑΡΙΘΜΟΜΗΧΑΝΗ 


Σε  πολλές  περιπτώσεις  χρειαζόμαστε  τις  ικανότητες  ενός  απλού  παρά  ενός 
πολύπλοκου  υπολογιστή.  Αυτό  το  πρόγραμμα  εξομοιώνει  ένα  απλό  υπολογι¬ 
στή  τεσσάρων  πράξεων  (+,  -,  *,  /). 

Το  πρόγραμμα  μπορεί  να  επεκταθεί  ώστε  να  συμπεριλάβει  μνήμη  πρόσθε¬ 
σης,  μνήμη  αφαίρεσης  και  δυνατότητα  ανάγνωσης  της  μνήμης. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Χρησιμοποίησε  τα  πλήκτρα  +,  -,  *,  και  /  για  τις  αριθμητικές  πράξεις,  το  «.» 
για  υποδιαστολή  και  το  «=»  για  τα  αποτελέσματα  των  πράξεων.  Χρησιμο¬ 
ποίησε  τέλος  τα  πλήκτρα  Ο,  Α  και  8  σύμφωνα  με  τις  οδηγίες. 


10  ΚΕΜ  Αριθμομηχανή 
20  ΡΑΡΕΚ  0: ΙΝΚ  0,0 
30  ΡΕΝ  1: ΙΝΚ  1,23 
40  Β0ΚΘΕΚ  0 
50  Μ0ΘΕ  0 

60  ΡΚΙΝΤ  ΤΑΒ(6)”**********  *  *  *" 

70  ΡΚΙΝΤ  Τ ΑΒ ( 6 ) «ΑΡΙΘΜΟΜΗΧΑΝΗ» 

80  ΡΚΙΝΤ  ΤΑΒ(6)’’**********  *  *  *" 

90  ΡΚΙΝΤ: ΡΚΙΝΤ 

100  ΡΚΙΝΤ  «ΤΟ  ΠΛΗΚΤΡΟ  Ο  ΔΙΑΓΡΑΦΕΙ  ΤΗΝ» 

110  ΡΚΙΝΤ  ΤΑΒ(7)  «ΤΕΛΕΥΤΑΙΑ  ΕΙΣΑΓΩΓΗ  ΑΡΙΘΜΟΥ» 

120  ΡΚΙΝΤ 

130  ΡΚ  ΙΝΤ«ΤΟ  ΠΛΗΚΤΡΟ  Α  ΔΙΑΓΡΑΦΕΙ» 

140  ΡΚΙΝΤ  ΤΑΒ( 7)  «ΟΛΕΣ ΤΙΣ  ΕΙΣΑΓΩΓΕΣ» 

150  ΡΚΙΝΤ 

160  ΡΚΙΝΤ  «ΤΟ  ΠΛΗΚΤΡΟ  5  ΤΕΡΜΑΤΙΖΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ.» 
170  θ$=’"':  ΚΕΜ  Κενός  χαρακτήρας 
180  ΟΝ  ΕΚΚ0Κ  60Τ0  680 
190  : 


200  ΜΗΙΙ_Ε  &$<>"$" 


210 

220 

230 

240 

250 

260 

270 


ύ$=ΙΝΚΕΥ$: ΙΕ  ύ$=θ$  ΤΗΕΝ  210 
ύ$=Ι_0ΝΕΚ$(5$) 

33=Α50(ύ$) 

ΙΡ  (33>47  ΑΝΘ  33<58)  ΟΚ  &$="."  ΤΗΕΝ  605υΒ  340 
ΙΡ  &$="+■'  0Κ  &$="-'*  0Κ  (3$="*"  ΤΗΕΝ  6051ΙΒ  450 


ΙΡ  υϊ3"/"  0Κ  &$="=' 
ΙΡ  ύ$="3Μ  0Κ 


ΤΗΕΝ  6051ΙΒ  450 
ΤΗΕΝ  605υΒ  600 


280  ΜΕΝΘ  ' 
290  ΜΟΘΕ  1 
300  ΕΝΘ 


310  : 


320  : 

330  ΚΕΜ  Αριθμός  ή  υποδιαστολή 

340  ΙΡ  ΐ$="=”  ΤΗΕΝ  β$=θ$: ίϊ=β$: Γ=0 

350  3$=3$+ύ$ 

360  ΙΡ  Ι_ΕΝ(0$)>8  ΤΗΕΝ  3$=Ι_ΕΡΤ$(3$,8) 

370  ΕΟΟΑΤΕ  1,17 

380  ΡΚΙΝΤ  5ΡΑ0Ε2 ( 12) 
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390  ΕΟΟΑΤΕ  1,17 

400  ΡΡΙΝΤ  ΤΑΒ  (9-Ι_ΕΝ(3$));θ$ 

410  ΡΕΤΟΡΝ 
420  : 

430  : 

440  ΡΕΜ  Εκτελεστής  πράξεων 

450  ΙΕ  1$="+"  0Ρ  ί$=θ$  ΤΗΕΝ  Γ=Γ+νΑΕ(3$) 

460  ΙΕ  Ε$="-"  ΤΗΕΝ  Γ=Γ-νΑΕ(3$) 

470  ΙΕ  ΤΗΕΝ  Γ=Γ*νΑΕ(3$) 

480  ΙΕ  1$="/"  ΤΗΕΝ  Γ=Γ/νΑΕ(3$) 

490  ί$=1)$ 

500  ΙΕ  1$="="  ΤΗΕΝ  ρ$=0ΗΡ$(32)  ΕΙ_5Ε  ρ$=ί$ 

510  ΕΟΟΑΤΕ  1,17 
520  ΡΡΙΝΤ  $ΡΑΟΕ$(20) 

530  ΕΟΟΑΤΕ  1,17 

540  ΡΡΙΝΤ  ΤΑΒ(9-ΙΕΝ(5ΤΡ$(γ)));γ;ΤΑΒ(16);ρ$ 

550  3$=θ$ 

560  ΚΕΤυΡΝ 
570  : 

580  : 

590  ΡΕΗ  Καθάρισμα 
600  ΕΟΟΑΤΕ  1,17 

610  ΙΕ  6$=,·3,'  ΤΗΕΝ  δρ=20:  Τ$=β$: Γ=0  ΕΕ5Ε  δρ=12 
620  ΡΡΙΝΤ  $ΡΑΟΕ$(δρ) 

630  3$=-θ$ 

640  ΡΕΤυΡΝ 
650  : 

660  : 

670  ΡΕΜ  Ρουτίνα  λάθους 
680  ΕΟΟΑΤΕ  1,17 
690  ΡΡΙΝΤ  5ΡΑΟΕΚ20) 

700  ΕΟΟΑΤΕ  1,17 
710  ΡΡΙΝΤ  «ΛΑΘΟΣ», 

720  ΡΡΙΝΤ 

730  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ» 

740  6$=ΙΝΚΕΥ$:  ί  Ε  Μ=β*  ΤΗΕΝ  740 
750  ΡΙΙΝ 
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Π90  ΜΕΤΑΤΡΟΠΗ  ΣΥΝΤΕΤΑΓΜΕΝΩΝ 


Συχνά  παρουσιάζεται  η  ανάγκη  μετατροπής  των  καρτεσιανών  συντεταγμέ¬ 
νων  (χ,γ)  αριθμού  σημείων  σε  πολικές  (γ,Θ)  και  αντίστροφα,  σύμφωνα  με  το 
παρακάτω  σχήμα: 


γ-άξονας 


Οι  τύποι  που  χρησιμοποιούνται  για  τη  μετατροπή  αυτή  είναι  οι  εξής: 

Χ=Γ*00$(θ) 

γ=Γ*2ΙΝ(θ) 

Γ =χΑ2+γΑ2 
θ=ΑΚ0  ΤΑΝ(//χ) 


Αυτό  είναι  απλά  ένα  πρόγραμμα  επίδειξης  και  οι  χρησιμοποιούμενες  για 
τους  υπολογισμούς  τύποι  ισχύουν  μόνο  για  το  πρώτο  τεταρτημόριο.  Περι¬ 
πτώσεις  όπου  χ=0  δεν  μπορούν  να  αντιμετωπισθούν,  ούτε  επίσης  επιτρέπεται 
η  εισαγωγή  αρνητικών  τιμών  για  την  γ.  Βέβαια  το  πρόγραμμα  μπορεί  να  επε¬ 
κταθεί  ώστε  να  καλύπτει  όλες  αυτές  τις  περιπτώσεις  και  να  καταστεί  ένα  πο¬ 
λύτιμο  βοήθημα  για  τον  μαθηματικό. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΚΕΜ  Μετατροπή  συντεταγμένων 

20  ΙΝΚ  0,24 

30  ΙΝΚ  1,1 

40  ΡΑΡΕΚ  0 

50  ΡΕΝ  1 

60  Β0Κ0ΕΚ  24 

70  ΜΟϋΕ  1 

80  ΡΚΙΝΤ  ΤΑΒ(  14)" - " 

90  ΡΚΙΝΤ  ΤΑΒ  (17)  «ΜΕΤΑΤΡΟΠΗ» 

100  ΡΚΙΝΤ  ΤΑΒ (15) «ΣΥΝΤΕΤΑΓΜΕΝΩΝ» 

110  ΡΚΙΝΤ  ΤΑΒ(  14)" - " 

120  603ίΙΒ  730:  ΚΕΜ  Μονάδες  γωνιών 
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130  ΟΝ  ΕΡΡΟΡ  60ΤΟ  1010 


140  : 

150  ΡΕΜ  Πίνακας  επιλογών 

160  ΝΗΙΙΕ  ε%<>3 

170  :  ε%=0 

180  :  01_δ 

190  :  ΕΟΟΑΤΕ  6,6 

200  :  ΡΡΙΝΤ  -ΠΛΗΚΤΡΟ  1 .  ΚΑΡΤΕΣΙΑΝΕΣ  ΣΕ  ΠΟΛΙΚΕΣ» 
210  ΡΡΙΝΤ 


220  :  ΡΡΙΝΤ  ΤΑΒ(  6) -ΠΛΗΚΤΡΟ  2.  ΠΟΛΙΚΕΣ  ΣΕ  ΚΑΡΤΕΣΙΑΝΕΣ 
230  ΡΡΙΝΤ 
240 
250 
260 
270 
280 


290 

300 

310 


ΡΚΙΝΤ  ΤΑΒ(6) -ΠΛΗΚΤΡΟ  3.  ΤΕΡΜΑΤΙΖΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 
ΡΡΙΝΤ: ΡΚΙΝΤ 

ΡΚΙΝΤ  Τ ΑΒ( 4 )-ΠΟΙΑ  ΛΕΙΤΟΥΡΓΙΑ  ΕΠΙΛΕΓΕΙΣ  -  Ι,2,ή3·» 
ΜΗΙΙΕ  ο%<1  ΟΡ  ϋ%>3 

0$=ΙΝΚΕΥ$:  ΙΕ  0$="··  ΤΗΕΝ  280 


320  ΜΕΝϋ 
330  0.5 
340  ΕΝΟ 
350  : 


ο%=ΑδΟ(ς$)-48 
ΜΕΝϋ 

ΟΝ  ε%  6051ΙΒ  400,560 


360  : 
370  : 


380  : 

390  ΡΕΜ  Καρτεσιανές  σε  πολικές 
400  (Χδ 

410  ΙΝΡυΤ  -ΠΟΙΑ  ΕΙΝΑΙ  Η  χ- ΣΥΝΤΕΤΑΓΜΕΝΗ»·  χ 
420  ΡΡΙΝΤ 

430  ΙΝΡυΤ  «ΠΟΙΑ  ΕΙΝΑΙ  Η  γ- ΣΥΝΤΕΤΑΓΜΕΝΗ»·  ν 
440  Γ=δΟΡ( χ*χ*γ*χ) 

450  3=ΑΤΝ(χ/χ) 

460  (Χδ 


470  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

480  ΡΡΙΝΤ  ΤΑΒ(6)  «ΤΙΜΗ  ΠΟΛΙΚΗΣ  ΑΚΤΙΝΑΣ»·  γ 
490  ΡΡΙΝΤ 

500  ΡΡΙΝΤ  ΤΑΒ(6)  -ΤΙΜΗ  ΠΟΛΙΚΗΣ  ΓΩΝΙΑΣ=  »;  ΡΝβ  I  (α)·  « 
510  60δυΒ  910 
520  ΡΕΤυΡΝ 
530 


540  : 


550  ΡΕΜ  Πολικές  σε  καρτεσιανές 
560  0Ι_5 

κοη  "ΠΟΙΑ  ΕΙΝΑΙ  Η  ΤΙΜΗ  ΤΗΣ  ΠΟΛΙΚΗΣ  ΑΚΤΙΝΑΣ»;  γ 

->οϋ  γΚΙΝΙ 

590  ΙΝΡυΤ  -ΠΟΙΑ  ΕΙΝΑΙ  Η  ΤΙΜΗ  ΤΗΣ  ΠΟΛΙΤΚΗΣ  ΓΩΝΙΑΣ»·  * 

600  3=ΡΝθ2(3) 

610  Χ=Γ*ΟΟδ(3) 

620  γ=Γ*δΙΝ( β) 

630  αδ 

640  ΡΡΙ ΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

650  ΡΡΙΝΤ  Τ ΑΒ < 6 >  -X  -  ΣΥΝΤΕΤΑΓΜΕΝΑ  »;  χ 

660  ΡΡΙΝΤ 

670  ΡΡΙΝΤ  Τ  ΑΒ  ( 6 )  «Υ  -  ΣΥΝΤΕΤΑΓΜΕΝΑ  »  γ 
680  60δυΒ  910 
690  ΡΕΤΟΡΝ 
700  : 

710  : 

720  ΡΕΜ  Μονάδες  Γωνιών 

730  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

740  ΡΡΙΝΤ  Τ  ΑΒ  ( 6 )  «ΔΙΑΛΕΓΕΙΣ  ΤΙΣ  ΜΟΝΑΛΕΣ  ΜΕΤΡΗΣΗΣ  ΤΩΝ  ΓΩΝΙΩΝ» 
750  ΡΡΙΝΤ  -ΠΑΤΩΝΤΑΣ  ΤΟ  ΠΛΗΚΤΡΟ:»:  ΡΡΙΝΤ 


202 


760  ΡΡΙΝΤ  ΤΑΒ<14)“·  -  ΑΚΤΙΝΙΑ» 

770  ΡΡΙΝΤ  ΤΑΒ(14)  «2  -  ΜΟΙΡΕΣ» 

780  ΡΡΙΝΤ 
790  3Π%-0 

800  ΡΡΙΝΤ  ΤΑΒ(6)  “Π  ΔΙΑΛΕΓΕΙΣ  (1  ή  2);»  . 

810  ν/ΗΙ Ι_Ε  3Π%<1  ΟΡ  βπ%>2 

820  :  3$=ΙΝΚΕΥ$:ΐΡ  3$="’·  ΤΗΕΝ  820 

830  :  3Π%=Α$0(3$)-48 

840  ΜΕΝϋ 

850  Τ$="ο)θ9Γθθ$":ΡΕΡ  ΡΝθΙ (3)=3*180/ΡΙ :  ΘΕΡ  ΡΝ32(3)=3*ΡΙ/180 
860  ΙΡ  3ηΖ=1  ΤΗΕΝ  ί$="Γ3ά 13Π5": ΡΕΡ  ΡΝ3ΐ(3)=3:0ΕΡ  ΡΝβ2(3)=3 
870  ΡΕΤυΡΝ 
880  : 

890  : 

900  ΡΕΜ  Επιστροφή  στις  λειτουργίες  του  προγράμματος 
910  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

920  ΡΡΙΝΤ  ΤΑΒ(6)  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

930  8$=ΙΝΚΕΥ$:ΙΡ  85=""  ΤΗΕΝ  930 
940  ΙΟΟΑΤΕ  6,15 

950  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  ΜΕΤΑΒΑΛΛΕΙΣ  ΤΙΣ  ΜΟΝΑΔΕΣ  ΤΩΝ  ΓΩΝΙΩΝ  (γ/η)»; 

960  ΙΡ  Ι_ΕΡΤ$αθΝΕΡ$(>.$),1)=Ύ·  ΤΗΕΝ  0Ι_5:6Ο51ΙΒ  730 
970  ΡΕΤυΡΝ 
980  : 

990  : 

1000  ΡΕΜ  Ρουτίνα  λάθους 

1010  α$ 

1020  ΡΡΙΝΤ  “ΕΙΝΑΙ  ΑΔΥΝΑΤΗ  Η  ΜΕΤΑΤΡΟΠΗ  ΜΕ  ΒΑΣΗ  ΤΑ» 

1030  ΡΡΙΝΤ  «ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΧΕΙΣ  ΒΑΛΕΙ» 

1040  ΡΡΙΝΤ 
1050  ΡΡΙΝΤ 

1060  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  -ΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ». 
1070  3$=ΙΝΚΕΥ$: ΙΡ  3$=""'  ΤΗΕΝ  107& 

1080  ΡΟΝ 


203 


Π91  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ  ΔΙΑΝ ΥΣΜ ΑΤΩΝ 


Αυτό  είναι  ένα  μάλλον  απλό  πρόγραμμα  που  μπορεί  να  χρησιμοποιηθεί  για 
τον  υπολογισμό  του  εσωτερικού  και  εξωτερικού  γινόμενου  δύο  διανυσμά- 
των.  Τα  διανύσματα  πρέπει  να  έχουν  μέχρι  τρεις  συνιστώσες. 

Το  πρόγραμμα  θα  μπορούσε  να  γίνει  πιο  περίπλοκο  και  να  αντιμετωπίζει  πε¬ 
ριπτώσεις  με  διανύσματα  περισσότερων  από  τρεις  συνιστωσών.  Πιστεύουμε 
όμως  ότι  και  σ’  αυτή  τη  μορφή  είναι  μια  χρήσιμη  ρουτίνα  για  κάθε  βιβλιο¬ 
θήκη  προγραμμάτων. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τις  συνιστώσες  των  διανυσμάτων  όταν  σου  ζητηθεί. 


10  ΒΕΜ  Πολλαπλασιασμός  διανυσμάτων 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΒ  0 

50  ΡΕΝ  1 

60  Β0Β0ΕΒ  1 

70  Μ0Ε>Ε  1 

80  ΡΚΙΝΤ  ΤΑΒ(  10)  "ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ  ΔΙΑΝΥΣΜΑΤΩΝ» 

90  ΡΚΙΝΤ  ΤΑΒ(  10)  «*  *************************** ' 

100  ΡΒΙΝΤ: ΡΚΙΝΤ: ΡΒΙΝΤ 

110  ΡΡΙΝΤ"  ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟ  ΕΣΩΤΕΡΙΚΟ  ΚΑΙ» 

120  ΡΚΙΝΤ  -ΕΞΩΤΕΡΙΚΟ  ΓΙΝΟΜΕΝΟ  ΔΥΟ  ΔΙΑΝΥΣΜΑΤΩΝ». 

130  ΡΡΙΝΤ 

140  ΡΡ I ΝΤ-ΕΙΝΑΙ  ΑΠΑΡΑΙΤΗΤΟ  ΝΑ  ΓΝΩΡΙΖΕΙΣ  ΤΙΣ» 

150  ΡΡΙΝΤ «ΣΥΝΙΣΤΩΣΕΣΤΩΝ  ΔΙΑΝΥΣΜΑΤΩΝ  ΠΟΥ  ΕΙΣΑΓΕΙΣ». 

160  ΡΒΙΝΤ 

170  ΡΡΙΝΤ  "ΤΑ  ΔΙΑΝΥΣΜΑΤΑ  ΠΡΕΠΕΙ  ΝΑ  ΑΝΗΚΟΥΝ  ΣΤΟ  ΧΩΡΟ  ΤΩΝ  3» 

180  ΡΡΙΝΤ -ΔΙΑΣΤΑΣΕΩΝ»:  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

190  ΡΡΙΝΤ  "ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 

200  3$=ΙΝΚΕΥ$:ΙΡ  35=”"  ΤΗΕΝ  200 

210  : 

220  ν$=Ύ' 

230  ΜΗΙΕΕ  ΕΕΡΤ$(  Ι_0ΗΕΒ$(γ$)  ,1  )="/' 

240  :  0Ε8 

250  :  ΡΒΙΝΤ  «ΔΩΣΕ  ΤΙΣ  ΣΥΝΙΣΤΩΣΕΣ  ΤΟΥ  ΠΡΩΤΟΥ  ΔΙΑΝΥΣΜΑΤΟΣ;» 

260  :  ΡΡΙΝΤ: ΡΒΙΝΤ: ΡΡΙΝΤ 

270  :  Ρ0Ρ  η=0  ΤΟ  2 

280  :  ΡΚΙΝΤ  ..ΣΥΝΙΣΤΩΣΑ»;  8ΤΚ  $  (η+Ι); 

290  :  ΙΝΡυτ-υ(η) 

300  :  ΡΡΙΝΤ 

310  :  ΝΕΧΤ 
320  : 

330  :  0Ε5 

340  :  ΡΡΙΝΤ  "ΔΩΣΕ  ΤΙΣ  ΣΥΝΙΣΤΩΣΕΣ  ΤΟΥ  ΔΕΥΤΕΡΟΥ  ΔΙΑΝΥΣΜΑΤΟΣ;» 

350  :  ΡΒΙΝΤ: ΡΡΙΝΤ: ΡΚΙΝΤ 

360  :  Ρ0Ρ  η=0  ΤΟ  2 

370  :  ΡΡΙΝΤ  «ΣΥΝΙΣΤΩΣΑ»;  η+Ι; 


->04 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

.490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 


ΙΝΡυΐ  ν(η) 

ΡΡΙΝΤ 

ΝΕΧΤ 

ΡΕΜ  Εσωτερικό  γινόμενο 
<5=0 

ΡΟΡ  η=0  ΤΟ  2 

ό=ά+υ(η)*ν(η) 

ΝΕΧΤ 

ΡΕΜ  Εξωτερικό  γινόμενο 

ν/(0)=υ(1)*ν(2)-ϋ(2)*ν(1) 

ν/(ΐ)=υ(2)*ν(θ)-υ(θ)*ν(2) 

ν<(2)='υ(0)*ν(ΐ)-υ(ΐ)*ν(0) 

οι$ 

ΡΡΙΝΤ  ΤΑΒ(  14)  «ΕΞΩΤΕΡΙΚΟ  ΓΙΝ.ΟΜΕΝΟ» 

ΡΚΙΝΤ  ΤΑΒ(  14)  « . »***♦**» 

ΡΚΙΝΤ: ΡΚΙΝΤ 

ΡΡΙΝΤ  2Ρ0(4)«ΛΙΑΝΥΣΜΑ  1»;  8ΡΟ(4);  «ΔΙΑΝΥΣΜΑ  2»  5Ρ€(5)  «ΓΙΝΟΜΕΝΟ» 

ΡΚΙΝΤ  2Ρ0 (4)« . -  »;  5ΡΟ  (4)  « . »  8Ρ0(5)  <«  -  -  - - - 

ΡΟΚ  π=0  ΤΟ  2 

ΡΚΙΝΤ  υδΙΝΟ  ”#########.##’·;ϋ(η);ν(η);ν(η) 

ΝΕΧΤ 

ΡΚΙΝΤ: ΡΡΙΝΤ: ΡΚΙΝΤ: ΡΡΙΝΤ 

ΡΡΙΝΤ  ΤΑΒ(  15) «ΕΣΩΤΕΡΙΚΟ  ΓΙΝΟΜΕΝΟ» 

ΡΚΙΝΤ  ΤΑΒ(15)«* **»*.*♦**»***»**„ 

ΡΗΙΝΤ:ΡΡΙΝΤ 

ΡΚΙΝΤ  ΤΑΒ(8)«ΤΟ  ΕΣΩΤΕΡΙΚΟ  ΓΙΝΟΜΕΝΟ  ΕΙΝΑΙ»;ΙΝΤ(Ι00  *  ό  +  0.5)  /100 

ρκιντ:ρριντ:ρκιντ'  ' 


700  ΜΕΝϋ 


ΙΝΡΙΙΤ  «ΘΕΛΕΙΣ  ΝΑ  ΒΡΕΙΣ  ΚΑΙ  ΑΛΛΟ  ΓΙΝΟΜΕΝΟ  (γ/η)»;  7$ 


710  01.5 


720  ΕΝΟ 
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Π92  ΔΕΥΤΕΡΟΒΑΘΜΙΕΣ  ΕΞΙΣΩΣΕΙΣ 


Αυτό  το  πρόγραμμα  λύνει  εξισώσεις  της  μορφής 
ΑχΑ2+Βχ+Ο=0  (I) 

χρησιμοποιώντας  τον  τύπο: 
χ=  (-Β  +  5(2Κ  (Β*Β  -  4*Α*ϋ)γ2/Α  (II) 

ο  οποίος  δίνει  τις  δύο  ρίζες  της  (I).  Διακρίνουμε  όμως  και  ορισμένες  ειδικές 
περιπτώσεις: 

1 .  Εάν  Α=0  τότε  το  β '  μέλος  της  (II)  αποκτά  μηδενικό  παρονομαστή.  Σ’  αυ¬ 
τήν  την  περίπτωση  η  λύση  είναι  χ=0/Β. 

2.  Εάν  Β*  Β  -  4*  Α*  €=0  τότε  έχουμε  μόνο  μια  ρίζα.  Σ  ’  αυτήν  την  περίπτωση  η 
λύση  είναι  χ=  -Β/(2*Α). 

3.  Εάν  Β*  Β  -  4  *  Α*  (3<  0  έχουμε  μιγαδικές  ρίζες. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τις  τιμές  των  συντελεστών  της  (I)  με  τη  σωστή  σειρά  όταν  σου  ζητη¬ 
θεί. 


10  ΚΕΜ  'Δευτεροβάθμιες  εξισώσεις 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΚ  0 

50  ΡΕΝ  1 

60  Β0Κ0ΕΚ  1 

70  Μ0Ι>Ε  1 

80  ΡΚΙΝΤ  ΤΑΒ(  1 1 ) «ΔΕΥΤΕΡΟΒΑΘΜΙΕΣ  ΕΞΙΣΩΣΕΙΣ» 

90  ΡΚΙΝΤ  ΤΑΒ(11)„***  ***»»***♦******».> 

100  ΡΚΙΝΤ: ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΠΙΛΥΕΙ  ΕΞΙΣΩΣΕΙΣ  ΤΗΣ» 
120  ΡΚΙΝΤ  «ΜΟΡΦΗΣ»; 

130  ΡΚΙΝΤ 

140  ΡΚΙΝΤ  ΤΑΒ(14)"3*χΛ2+Ρ*χ+ε-0" 

150  ΡΚΙΝΤ: ΡΚΙΝΤ 

160  ΡΚΙΝΤ  «ΔΩΣΕ  ΤΙΣ  ΤΙΜΕΣ  ΤΩΝ  ΤΡΙΩΝ  ΣΥΝΤΕΛΕΣΤΩΝ  ΜΕ  ΤΗ» 
170  ΡΚΙΝΤ «ΣΩΣΤΗ  ΣΕΙΡΑ». 

180  ΡΚΙΝΤ:ΡΚΙΝΤ 

190  ΙΝΡϋΤ  -ΣΥΝΤΕΛΕΣΤΗΣ ΤΟΥ χ‘2 (3)=»; 3 

200  ΙΝΡυΤ  «ΣΥΝΤΕΛΕΣΤΗΣ  ΤΟΥ  χ(6)=  »;  6 

210  ΙΝΡϋΤ  «ΣΤΑΘΕΡΟΣ  ΣΥΝΤΕΛΕΣΤΗΣ  (6)=  »;  ς 

220  ΙΡ  3  =  0  ΑΝ0  6=0  ΤΗΕΝ  Κϋ Ν :  Κ ΕΓ1  Εκφυλισμένη  περίπτωση 

230  : 
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240  ΙΡ  3<>0  ΤΗΕΝ  3$=5ΤΚ5(3)+·'*χα2" 

250  ΙΡ  &>0  ΤΗΕΝ  13$=ΜΙ 0$( 5ΤΡ$<ίι) ,2 )+"*χ” 

260  ΙΡ  3<>0  ΑΝϋ  &>0  ΤΗΕΝ  6$="+"+ΐ3$ 

270  ΙΡ  ε>0  ΤΗΕΝ  ε$=,*+"+ΜΙ0$(δΤΡ$(ε),2) 

280  ΙΡ  ς<0  ΤΗΕΝ  ε$=δΤΡ$(ι:) 

290  θ$=3$+ϋ$+ε$+"=0" 

300  ΡΡΙΝΤ 

310  ΡΡΙΝΤ «Η  ΕΞΙΣΩΣΗ  ΕΙΝΑΙ».;  ε$ 

320  ΡΡΙΝΤ 

330  ΙΝΡυΤ  «ΕΙΝΑΙ  ΣΩΣΤΑ  ΓΡΑΜΜΕΝΗ  (γ/η)»>;γ$ 

340  ΙΡ  ΕΕΡΤίίΙΟΗΕΡδζγδΜΙΟ'Υ'  ΤΗΕΝ  ΡυΝ 
350  : 

360  αδ 

370  ΐ=ΙΝΤ((28-ίΕΝ(ε$))/2) 

380  ΡΡΙΝΤ  ΤΑΒ(ΐ)  «Η  ΕΞΙΣΩΣΗ  ΕΙΝΑΙ»»;  6$ 

390  ΡΡΙΝΤ:ΡΡΙΝΤ 

400  ΙΡ  3=0  ΤΗΕΝ  ΡΡΙΝΤ  ΤΑΒ(6)  «Η  ΛΥΣΗ  ΕΙΝΑΙ;  χ  =  »»;  -  ο/6:Γ=1 
410  ΜΗΙΙ_Ε  ί=0 

420  :  ά=1)*1)-4*3*ς:  ΡΕΜ  Διακρίνουσα 

430  :  ΙΡ  ί)=0  ΤΗΕΝ  60δυΒ  570 

440  :  ΙΡ  ϋ>0  ΤΗΕΝ  60δυΒ  640 

450  :  ΙΡ  (Κ0  ΤΗΕΝ  60δϋΒ  730 

460  :  ί=1 

470  ΜΕΝΟ 
480  : 

490  ΡΡΙΝΤ:ΡΡ1ΝΤ:ΡΡΙΝΤ 

500  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  ΛΥΣΕΙΣ  ΚΑΙ  ΑΛΛΗ  ΕΞΙΣΩΣΗ  (γ/η)»;  γ$ 

510  ΙΡ  1_Ε ΡΤ$ ( (_0ΜΕΡ$ (γ5) , Ί ΤΗΕΝ  ΡυΝ 
520  αδ 
530  ΕΝΡ 
540  : 

550  : 

560  ΡΕΜ  Διπλή  ρίζα 

570  ΡΡΙΝΤ  ΤΑΒ(ΐ)  «ΕΧΟΥΜΕ·  ΔΙΠΛΗ  ΡΙΖΑ». 

580  ΡΡΙΝΤ: ΡΡΙΝΤ 

590  ΡΡΙΝΤ  ΤΑΒ(6)«Η  ΛΥΣΗ  ΕΙΝΑΙ:  χ=»; -6/2/α 
600  ΡΕΤυΡΝ 
610  : 

620  : 

630  ΡΕΜ  Πραγματικές  ρίζες 

640  ΡΡΙΝΤ  ΤΑΒ(ΐ)  «ΕΧΟΥΜΕ  ΔΥΟ  ΠΡΑΓΜΑΤΙΚΕΣ  ΡΙΖΕΣ»». 

650  ΡΡΙΝΤ:ΡΡΙΝΤ 

660  ΡΡΙΝΤ  Τ ΑΒ ( 6 ) «Η  ΠΡΩΤΗ  ΡΙΖΑ  ΕΙΝΑΙ;  χ  =  »;  (-6+δΟΚ(ιΙ))/2/ίΐ 
670  ΡΡΙΝΤ 

680  ΡΡΙΝΤ  Τ  ΑΒ  ( 6 )  «Η  ΔΕΥΤΕΡΗ  ΡΙΖΑ  ΕΙΝΑΙ:  χ  =  »»;  (-6  -  δΟΚ(<1))/2/3 
690  ΡΕΤυΡΝ 
700  : 

710  : 

720  ΡΕΜ  Μιγαδικές  ρίζες 

730  ΡΡΙΝΤ  ΤΑΒ(ΐ)  «ΕΧΟΥΜΕ  ΜΙΓΑΔΙΚΕΣ  ΡΙΖΕξ», 

740  ΡΡΙΝΤ: ΡΡΙΝΤ 

750  ΡΡΙΝΤ  Τ  ΑΒ  ( 6 )  «Η  ΠΡΩΤΗ  ΡΙΖΑ  ΕΙΝΑΙ:χ=»;  -Ι>2/3;«+» 

760  ΡΡΙΝΤ  ΤΑΒ(21);"ϊ*(";50Ρ(-ϋ)/2/3;")” 

770  ΡΡΙΝΤ 

780  ΡΡΙΝΤ  ΤΑΒ (6)  «Η  ΔΕΥΤΕΡΗ  ΡΙΖΑ  ΕΙΝΑΙ:χ=»; -6/2/π;»  «-»» 

790  ΡΡΙΝΤ  Τ  ΑΒ  (21  );"ϊ*(";δΟΡ(-£ί)/2/ 3;")" 

800  ΡΕΤϋΡΝ 


207 


Π93  Π  ΑΡ  ΑΓ  ΟΝΤΟΠΟΙΗΣΗ 


Αυτό  το  πρόγραμμα  βρίσκει  τους  πρώτους  παράγοντες  ενός  φυσικού  αριθ¬ 
μού.  Κάθε  φυσικός  αριθμός  Ν  μπορεί  να  αναλυθεί  σε  γινόμενο  πρώτων  παρα¬ 
γόντων  και  να  εκφρασθεί  με  τους  παράγοντες  αυτούς  και  τους  εκθέτες  τους. 
Εκθέτης  ενός  πρώτου  παράγοντα  είναι  η  δύναμη  στην  οποία  υψώνεται  αυτός 
ο  αριθμός  κατά  την  παραγοντοποίηση  του  Ν. 

Είναι,  π.χ.,  για  τον  φυσικό  αριθμό  180: 

180=  2*2  *  3*2  *  5 

Για  να  βρούμε  τους  πρώτους  παράγοντες  του  Ν  χρησιμοποιούμε  τη  μέθοδο 
των  επαναλαμβανόμενων  διαιρέσεων. 

Ας  δούμε  για  παράδειγμα,  πώς  βρίσκουμε  τους  πρώτους  παράγοντες  του  α¬ 
ριθμού  180. 

Ο  πρώτος  πιθανός  παράγοντας  του  180  είναι  ο  2  και  μπορούμε  να  γράψουμε: 
180=  2  *  90  =  2*2*  45 

Ο  2  λοιπόν  είναι  παράγοντας  του  180  και  του  90  αλλά  δεν  είναι  παράγοντας 
του  45  και  αυτό  γιατί  η  διαίρεση  του  45  με  τον  2  δίνει  μη  μηδενικό  υπόλοιπο. 

Μπορούμε  τώρα  να  δοκιμάσουμε  τον  3: 

180=  2*2*3*  15=  2*2*3*3*5 

Δοκιμάζοντας  στη  συνέχεια  τον  επόμενο  πρώτο  αριθμό,  5,  παίρνουμε  πηλί¬ 
κο  1.  Αυτό  σημαίνει  πως  έχουν  βρεθεί  όλοι  οι  πρώτοι  παράγοντες. 
Έτσι: 

180=  2  *  2  *  3  *  3  *  5  *  1=  2*  2  *  3*3  *  5 

Το  πρόγραμμα  που  παρουσιάζουμε  εδώ  χρησιμοποιεί  αυτόν  τον  αλγόριθμο. 
ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τον  αριθμό  που  θέλεις  να  παραγοντοποιήσεις. 

10  ΡΕΜ  Παραγοντοποίηση 
20  ΙΝΚ  0,1 
30  ΙΝΚ  1,24 
40  ΡΑΡΕΚ  0 
50  ΡΕΝ  1 
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60  ΒΟΡΘΕΡ  1 
70  ΜΟΘΕ  1 

80  ΡΡΙΝΤ  ΤΑΒ(14)  «ΠΑΡΑΓΟΝΤΟΠΟΙΗΣΗ» 

90  ΡΡΙΝΤ  ΤΑΒ(  14)  ******** »**»****»*» 

100  ΡΡΙΝΤ:ΡΡΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  Τ0  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΝΑ  ΑΝΑΛΥΕΙ  ΕΝΑ». 
120  ΡΡΙΝΤ  «ΦΥΣΙΚΟ  ΑΡΙΘΜΟ  ΣΕ  ΠΡΩΤΟΥΣ  ΠΑΡΑΓΟΝΤΕΣ» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΣΤΗ  ΜΟΡΦΗ  ΑΥΤΗ,  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΜΟΝΟΝ»» 

150  ΡΡΙΝΤ  «ΕΚΕΙΝΟΥΣ  ΤΟΥΣ  ΠΑΡΑΓΟΝΤΕΣ  ΠΟΥ  ΕΙΝΑΙ  ΜΙΚΡΟΤΕΡΟΙΑΠΟ  ΤΟ  100»» 
160  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

170  ΙΝΡυΤ  «Ο  ΑΡΙΘΜΟΣ  ΠΟΥ  ΠΡΕΠΕΙ  ΝΑ  ΠΑΡΑΓΟΝΤΟΠΟΙΗΘΕΙ»;  ηυπι 
180  ηυπι=ΙΝΤ(ηυιη) 

190  ΙΡ  ηυιη<2  ΤΗΕΝ  Ρ11Ν:ΡΕΜ  Αγνόηση  πολύ  μικρών  αριθμών 
200  ρ=ηυιη 

210  <1=100:  ΡΕΜ  Στη  γραμμή  αυτή  καθορίζεται  η  μέγιστη  τιμή  των  πρώτων  παραγόντων 
220  0ΙΜ  ί(ύ),ϊ(ά) 

230  : 

240  ΡΕΜ  Υπολογισμός  εκθετών 
250  ΡΟΡ  Κ=2  ΤΟ  6 
260  :  ΐ=ο-ΙΝΤ(ς/Ι<)*Κ 
270  :  ΜΗΙΕΕ  ΐ=0 
280  :  1(10=1 

290  :  ί(ΙΟ  =  ϊ(ΙΟ  +  1 

300  :  η=ΙΝΤ(η/Κ) 

310  :  Τ=ρ-ΙΝΤ(ς/Ιι)*Κ 

320  :  ΝΕΝΘ 
330  ΝΕΧΤ 


340  : 

350  ΡΕΜ  Εάν  στην  !<  θέση  του  διανύσματος  των  παραγόντων  υπάρχει  ο  αριθμός  1  τότε  ο  !< 
360  ΡΕΜ  είναι  έναε  παράγοντας  και  ί  (X)  είναι  ο  εκθέτης  αυτού  του  παράγοντα. 

370  ΡΕΜ 
380  : 


390  ΡΕΜ  Το  επόμενο  τμήμα  του  προγράμματος  παρουσιάζει  την  παραγοντοποίηση. 
400  ΡΕΜ  Πρώτος  παρουσιάζεται  ο  αριθμός  1  για  τυπικούς  λόγους, 
παρόλο  που  ο  I  μπορεί  να  μη  θεωρείται  πρώτος  αριθμός. 

420  : 

430  01.5 
440  ε=1 
450  3$=·Ί" 

460  ΡΟΡ  Χ=2  ΤΟ  ϋ 

470  :  &$="  *"+$ΤΡ$(ΙΟ+"Α"+ΜΙΘ$(5ΤΡ$(ί(ΙΟ),2) 

480  :  ΙΡ  1(10  =  1  ΤΗΕΝ  3$=3$+ϋ$: ε  =  ε*Ι<Αϊ (λ) 

490  ΝΕΧΤ 


500  : 

510  ΙΡ  ς>=ηυπ!  ΤΗΕΝ  60511Β  600  ΕΕ5Ε  60511Β  710 
520  ΡΡΙΝΤ: ΡΡΙΝΤ 

530  ΙΝΡΙΙΤ  «ΘΕΛΕΙΣ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η)»»;γ5 

540  ΙΡ  Ι_ΕΡΤ$(Ι_0»ΕΡ$(χ$),1)=’Υ·  ΤΗΕΝ  ΡυΝ 

550  015 

560  ΕΝΘ 

570  : 

580  : 

590  ΡΕΜ  Ολοκλήρωση  παραγοντοποίησης 

600  ΡΡΙΝΤ  ΤΑΒ(  5 )  «Η  ΑΝΑΛΥΣΗ  ΣΕ  ΠΡΩΤΟΥΣ  ΠΑΡΑΓΟΝΤΕΣ  ΤΟΥ:»» 
610  ΡΡΙΝΤ 

620  ΡΡΙΝΤ  ΤΑΒ(4);ηυ<η 
630  ΡΡΙΝΤ 

640  ΡΡΙΝΤ  ΤΑΒ(  5)  «ΕΔΩΣΕ  ΤΟ  ΓΙΝΟΜΕΝΟ»» 

650  ΡΡΙΝΤ 
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660  ΡΡΙΝΤ  ΤΑΒ(5);3$ 

670  ΡΕΤΙΙΡΝ 
680  : 

690  : 

700  ΡΕΜ  Λανθασμένη  παραγοντοποίηση 

710  ΡΡΙΝΤ  «Η  Ο  ΑΡΙΘΜΟΣ  ΕΧΕΙ  ΕΝΑ  ΠΡΩΤΟ  ΠΑΡΑΓΟΝΤΑ» 
720  ΡΡΙΝΤ  «ΜΕΓΑΛΥΤΕΡΟ  ΑΠΟ  100  Η  Ο  ΥΠΟΛΟΓΙΣΤΗΣ  ΤΑ» 
730  ΡΡΙΝΤ  «ΜΠΕΡΔΕΨΕ  ΥΠΟΚΥΠΤΟΝΤΑΣ  ΣΤΑ  ΛΑΘΗ  ΤΩΝ» 
740  ΡΡΙΝΤ  «ΣΤΡΟΓΓΥΛΟΠΟΙΗΣΕΩΝ  ΠΟΥ  ΕΚΤΕΛΕΙ». 

750  ΡΕΤ0ΡΝ 
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Π94  ΓΙΑΡΑΓ  ΟΝΤΙΚΑ 


Στη  στατιστική  χρειάζεται  πολλές  φορές  να  υπολογίζουμε  γινόμενα  της 
μορφής: 

Ν  *  (Ν-1)  *  (Ν-2)  *  ...*  3*2*1 

Για  παράδειγμα,  αν  θέλουμε  να  ξέρουμε  με  πόσους  τρόπους  μπορούμε  να  α- 
ναδιατάξουμε  τα  γράμματα  της  λέξης  ΟΟΜΡΙΠΈΚ.,  τότε  έχουμε: 

8  τρόπους  για  να  διαλέξουμε  το  πρώτο  γράμμα, 

7  τρόπους  για  να  διαλέξουμε  το  δεύτερο  γράμμα, 

6  τρόπους  για  να  διαλέξουμε  το  τρίτο  γράμμα  κ.ο.κ.  Έτσι  τελικά  έχου¬ 
με: 

8*7*6*5*4*3*2*  1=  40320  τρόπους  διάταξης  των  γραμμάτων  της 
λέξης  ΟΟΜΡυΤΕΚ. 

Γινόμενα  αυτής  της  μορφής  ονομάζονται  παραγοντικά  και  ορίζονται  ως  ε¬ 
ξής: 

Ν!=  Ν  *  (Ν-1)  *  (Ν-2)  *  ...*  3*2*1  όπου  με  Ν!  συμβολίζεται  το  παραγο- 
ντικό  του  αριθμού  Ν. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες. 


10  ΚΕΜ  Παραγοντικά 
20  ΙΝΚ  0,1 
30  ΙΝΚ  1,24 
40  ΡΑΡΕΚ  0 
50  ΡΕΝ  1 
60  Β0Κ0ΕΚ  1 
70  Μ0ΡΕ  1 

80  ΡΚΙΝΤ  ΤΑΒ(  16)  «ΠΑΡΑΓΟΝΤΙΚΑ» 

90  ΡΚΙΝΤ  ΤΑΒ(  16)  . . * 

100  ΡΚΙΝΤ : ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙΤΑΙ  ΓΙΑ  ΤΟΝ  ΥΠΟΛΟΓΙΣΜΟ» 
120  ΡΚΙΝΤ  <·ΤΟΥ  ΠΑΡΑΓΟΝΤΙΚΟΥ  ΕΝΟΣ  ΦΥΣΙΚΟΥ  ΑΡΙΘΜΟΥ  ΜΙΚΡΟΤΕΡΟΥ  Η» 
130  ΡΚΙΝΤ  «ΙΣΟΥ  ΜΕ  ΤΟ  33». 

140  ΡΚΙΝΤ 

150  ΡΚΙΝΤ  «ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΟΝ  ΤΥΠΟ:» 

160  ΡΚΙΝΤ 

170  ΡΚΙΝΤ"π!=η*(π-1)*(η-2)*{η-3)* _ *3*2*1." 

180  ΡΚΙΝΤ 

190  ΡΚΙΝΤ  «ΤΟ  ΟΡΙΟ  33  ΕΙΝΑΙ  ΑΠΑΡΑΙΤΗΤΟ  ΝΑ  ΤΕΘΕΙ  ΚΑΙ  ΟΦΕΙΛΕΤΑΙ» 

200  ΡΚΙΝΤ  «ΣΤΟ  ΠΕΠΕΡΑΣΜΕΝΟ  ΜΕΓΕΘΟΣ  ΑΡΙΘΜΩΝ  ΠΟΥ  ΜΠΟΡΟΥΝ  ΝΑ» 

210  ΡΚΙΝΤ  «ΣΥΓΚΡΑΤΟΥΝΤΑΙ  ΑΠΟ  ΤΟΝ  ΥΠΟΛΟΓΙΣΤΗ» 

220  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

230  ΙΝΡΙΙΤ  «ΠΑΡΑΚΑΛΩ  ΔΩΣΕ  ΤΟΝ  ΑΡΙΘΜΟ  (I  ΜΕΧΡΙ  33)»  π% 

240  ΙΡ  ηΚΙ  0Κ  π%>33  ΤΗΕΝ  ΚϋΝ 
250  : 

260  α$ 


211 


270  1  =  1 

280  ΡΟΗ  Κ=1  ΤΟ  η% 

290  :  ί=ί*Χ 
300  ΝΕΧΤ 

310  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

320  ΡΗΙΝΤ  ΤΑΒ(8)  «ΤΟ  ΠΑΡΑΓΟΝΤΙΚΟ  ΤΟΥ»;  «ΕΙΝΑΙ» 
330  ΡΗΙΝΤ 

340  ΡΗΙΝΤ  ΤΑΒ( 7); ί 
350  ΡΚΙΝΤ  ΤΑΒ(8)"-"; 

360  ΡΟΗ  Κ=3  ΤΟ  Ι_ΕΝ(5ΤΚ$(ί)) 

370  :  ΡΚΙΝΤ”-"; 

380  ΝΕΧΤ 

390  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

400  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  ΒΑΛΕΙΣ  ΑΛΛΟΝ  ΑΡΙΘΜΟ  (γ/ηΚ,γϊ 
410  ΙΡ  ΕΕΠ·$αθνίΕΚ$(χ$>,1)=Ύ·  ΤΗΕΝ  ΚυΝ 
420  (Χ5 
430  ΕΝΰ 
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Π95  ΜΕΓΙΣΤΟΣ  ΚΟΙΝΟΣ  ΔΙΑΙΡΕΤΗΣ 


Αυτό  το  πρόγραμμα  εφαρμόζει  τον  Ευκλείδιο  Αλγόριθμο  για  να  υπολογίσει 
το  μέγιστο  κοινό  διαιρέτη  δύο  φυσικών  αριθμών. 

ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Δώσε  τους  φυσικούς  αριθμούς  όταν  σου  ζητηθεί. 


10  ΡΕΜ  Μέγιστος  κοινός  διαιρέτης 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΡ  0 

50  ΡΕΝ  1 

60  Β0ΡΡΕΚ  1 

70  Μ0ΡΕ  1 

80  ΡΡΙΝΤ  ΤΑΒ(9)  «ΜΕΓΙΣΤΟΣ  ΚΟΙΝΟΣ  ΔΙΑΙΡΕΤΗΣ» 

90  ΡΡΙΝΤ  ΤΑΒ(9)  ,****' ********  ****,, 

100  ΡΡΙΝΤ: ΡΡΙΝΤ 

110  ΡΡΙΝΤ  "ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΟΝ  ΑΛΓΟΡΙΘΜΟ» 
120  ΡΡΙΝΤ  «ΤΟΥ  ΕΥΚΛΕΙΔΗ  ΓΙΑ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙ  ΤΟ  ΜΕΓΙΣΤΟ» 

130  ΡΡΙΝΤ  «ΚΟΙΝΟ  ΔΙΑΙΡΕΤΗ  ΔΥΟ  ΦΥΣΙΚΩΝ  ΑΡΙΘΜΩΝ» 

140  ΡΡΙΝΤ: ΡΡΙΝΤ 

150  ΙΝΡυΤ  «ΠΡΩΤΟΣ  ΑΡΙΘΜΟΣ»*  1 

160  ΡΡΙΝΤ 

170  ΙΝΡυΤ  «ΔΕΥΤΕΡΟΣ  ΑΡΙΘΜΟΣ»;χ2 
180  : 

190  0Ε$ 

200  χ 1=ΙΝΤ( ΑΒ5 ( χ 1 ) ) 

210  3=χ1 

220  χ2=ΙΝΤ( ΑΒ5 ( χ2) ) 

230  ϋ=χ2 

240  ΟΝ  ΕΡΡ0Ρ  60Τ0  520 

250  ΙΡ  3<ό  ΤΗΕΝ  ΐ=θ:Ι)=3:3=τ:ΡΕΜ  β  Ιβγοθγ  πυπιύβΓ 
260  : 

270  ΡΕΜ  Η  επόμενη  ρουτίνα  είναι  ο  Ευκλείδιος  αλγόριθμος 
280  Γ=1 

290  ΜΗΙΕΕ  γ<>0 

300  :  γ=3-( ΙΝΤ( 3/ό) )*ύ:ΡΕΜ  Υπόλοιπο 

310:  η=ΙΝΤ( 3/0): ΡΕΜ  Πηλίκο 

320  :  3=ό 

330  :  6=γ 

340  ΜΕΝύ 

350  : 

360  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 

370  ΡΡΙΝΤ  ΤΑΒ(  3;  «Ο  ΜΕΓΙΣΤΟΣ  ΚΟΙΝΟΣ  ΔΙΑΙΡΕΤΗΣ  ΤΟΥ» 

380  ΡΡΙΝΤ 

390  ΡΡΙΝΤ  ΤΑΒ( 2);χ1; «ΚΑΙ  ΤΟΥ» 

400  ΡΡΙΝΤ 

410  ΡΡΙΝΤ  ΤΑΒ( 2);χ2;«ΕΙΝΑΙ» 

420  ΡΡΙΝΤ 
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430  ΡΚΙΝΤ  ΤΑΒ(2);3 
440  ΡΚΙΝΤ: ΡΚΙΝΤ: ΡΚΙΝΤ 

450  ΙΝΡϋΤ  «ΘΕΛΕΙΣ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η).>;χ$ 

460  ΙΡ  1_ΕΡΤ$(1-0ΜΕΚ$(χ$)^1  )=”χ*’  ΤΗΕΝ  ΚυΝ 
470  0.5 
480  ΕΝΰ 
490  : 

500  : 

510  ΚΕΜ  Ρο»χινα  σφάλματος 

520  ΡΚΙΝΤ«ΕΙΝΑΙ  ΑΔΥΝΑΤΟ  ΝΑ  ΓΙΝΕΙ  ΥΠΟΛΟΓΙΣΜΟΣ» 

530  ΡΚΙΝΤ  «ΜΕ  ΤΑ  ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΒΑΛΕΣ». 

540  ΡΚΙΝΤ 

550  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ». 
560  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  560 
570  Κ0Ν 


214 


Π96  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ  ΠΟΛΥΩΝΥΜΩΝ 


Με  αυτό  το  πρόγραμμα  μπορείς  να  πολλαπλασιάσεις  δύο  πολυώνυμα. 


ΠΑΡΑΔΕΙΓΜΑ 

Πολλαπλασιασμός  του  (2*χ*χ  +  3*χ  +  2)  μετο  (χ  +  ΐ) 


Αν  κάνουμε  τον  πολλαπλασιασμό  με  το  χέρι  ακολουθούμε  την  εξής  διαδικα¬ 
σία: 


2χ2  +  3χ  +2 

_ X  +  1 

2χ2  +  3χ  +  2 

2χ~  +  3χ2  +  2χ 

2χ3  +  5χ2  +  5χ  +  2 


Η  διαδικασία  αυτή  είναι  επίπονη  και  χρονοβόρα  όταν  τα  πολυώνυμα  έχουν 
πολλούς  όρους.  Ας  αφήσουμε  όμως  το  πρόγραμμα  να  αναλάβει  αυτό  το  δύ¬ 
σκολο  έργο. 

Όπως  οι  περισσότεροι  μικροϋπολογιστές,  έτσι  και  ο  Απι$Ιγ3<3  δεν  μπορεί 
να  εκφράει  τα  πολυώνυμα  με  πολύ  ικανοποιητικό  τρόπο,  αρκεί  όμως  να  ξε- 
περάσει  κανείς  αυτή  την  ιδιαιτερότητα  για  να  ανακαλύψει  τη  μεγάλη  χρησι¬ 
μότητα  του  προγράμματος. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Ακολούθησε  τις  οδηγίες  και  δώσε  τις  παραμέτρους  όπως  σου  ζητούνται. 


10  ΚΕΜ  Πολλαπλασιασμός  πολυώνυμων 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΚ  0 

50  ΡΕΝ  1 

60  Β0ΚΡΕΚ  1 

70  ΜΟΡΕ  1 

80  ΡΚΙΝΤ  Τ ΑΒ  ( 8 )  «ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΣ  ΠΟΛΥΩΝΥΜΩΝ» 

90  ΡΚΙΝΤ  ΤΑΒΙ8),,*  ******»»'»**»*»**»*»*„ 

100  ΡΚΙΝΤ: ΡΚΙΝΤ 

110  ΡΚΙΝΤ  "ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΥΠΟΛΟΓΙΖΕΙ  ΤΟ  ΑΠΟΤΕΛΕΣΜΑ» 
120  ΡΚΙΝΤ  «ΤΟΥ  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΥ  ΔΥΟ  ΠΟΛΥΩΝΥΜΩΝ» 

130  ΡΚΙΝΤ  <·ΤΑ  ΠΟΛΥΩΝΥΜΑ  ΕΙΝΑΙ  ΤΗΣ  ΜΟΡΦΗΣ:» 

140  ΡΚΙΝΤ 

150  ΡΚΙΝΤ"ρ( χ )=3 ίιπ) *χλγπ+3 (ππ—  1  )*χΑ(ιτι-1 )  + .  ...+3(1)*χ+3(0)" 
160  ΡΚΙΝΤ 

170  ΡΚΙΝΤ"ρ{χ)=ϋ<η)*χΑη+Ρ(η-1)*χΑ(η-1)+ _ +Ρ( 1 )*χ+ϋ(0)" 


215 


180  ΡΚΙΝΤ 

190  ΡΚΙΝΤ «ΚΑΙ  ΤΟ  ΑΠΟΤΕΛΕΣΜΑ  ΕΙΝΑΙ:» 

200  ΡΡΙΝΤ 

210  ΡΡΙΝΤ”ρ(χ)*θ|(χ ) =α ( η+η > *χΛ ( ιη+η )  (γπ+π— 1  )*χΑ(ιη+η-1 ) . . .  -  +  ε(0) 
220  ΡΚΙΝΤ 

230  ΡΚΙΝΤ"ΕΙΝΑΙ  ΑΠΑΡΑΙΤΗΤΟ  ΝΑ  ΔΩΣΕΙΣ  ΤΟ  ΒΑΘΜΟ»  θθ" 

240  ΡΚΙΝΤ  «ΚΑΙ  ΤΟΥΣ  ΣΤΑΘΕΡΟΥΣ  ΣΥΝΤΕΛΕΣΤΕΣ  ΚΑΘΕ  ΠΟΛΥΩΝΥΜΟΥ». 

250  ΡΚΙΝΤ 

260  ΡΚΙΝΤ-ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 

270  θ$=ΙΝΚΕΥ$: I Ρ  3$='"’  ΤΗΕΝ  270 
280  : 

290  ΟΙΜ  3(50),&<50),ς(100) 

300  ΡΕΜ  Δεν  γίνονται  δεκτά  πολυώνυμα  με  βαθμό  μεγαλύτερο  από  το  50 
310  : 

320  ηη%=-1 

330  ΜΗΙ1_Ε  ιη%<0  ΟΚ  ηο%>5 1 
340  :  ΘΕδ 

350  :  ΙΝΡυΤ  «ΠΟΙΟΣ  ΕΙΝΑΙ  Ο  ΒΑΘΜΟΣ  ΤΟΥ  ΠΡΩΤΟΥ  ΠΟΛΥΩΝΥΜΟΥ»;  ιη% 
360  ΜΕΝΩ 
370  : 

380  ΡΚΙΝΤ 

390  ΡΟΚ  Κ=0  ΤΟ  πι% 

400  :  ΡΚΙΝΤ  «ΣΥΝΤΕΛΕΣΤΗΣ»;!:; 

410  :  ΙΝΡυΤ  3(10 
420  ΝΕΧΤ 
430  : 

440  η%=-1 

450  ΗΗΙΙΕ  η%<0  ΟΡ  η%>51 
460  :  01_δ 

470  :  ΙΝΡυΤ«ΠΟΙΟΣ  ΕΙΝΑΙ  Ο  ΒΑΘΜΟΣ  ΤΟΥ  ΔΕΥΤΕΡΟΥ  ΠΟΛΥΩΝΥΜΟΥ»·  η% 
480  ΡΚΙΝΤ 
490  ΗΕΝΘ 
500  : 

510  ΡΟΚ  Χ=0  ΤΟ  π  % 

520  :  ΡΚΙΝΤ  «ΣΥΝΤΕΛΕΣΤΗΣ»;!:; 

530  :  ΙΝΡΟΤ  6(10 
540  ΝΕΧΤ 
550  : 

560  Οίδ 

570  ΟΝ  ΕΚΚΟΚ  60Τ0  970 
580  ΡΟΚ  ί=0  ΤΟ  πι% 

590  :  ΡΟΚ  Χ=0  ΤΟ  η% 

600  :  ς(1ί+ϊ  )=ε(Χ+ί  )+Ε(Ι^)*3(  ϊ ) 

610  :  ΝΕΧΤ 
620  ΝΕΧΤ 
630  : 

640  ΡΚΙΝΤ«ΤΟ  ΑΠΟΤΕΛΕΣΜΑ  ΤΟΥ  ΠΟΛΛΑΠΛΑΣΙΑΣΜΟΥ  ΤΟΥ» 

650  ΡΚΙΝΤ 

660  ΡΟΚ  ]=π>%  ΤΟ  0  δΤΕΡ  -1 
670  :  ΡΚΙΝΤ  3(ί);"*χΑ";ϊ;,,+"; 

680  ΝΕΧΤ 

690  ΡΚΙΝΤ  0ΗΚ$(8);<:ΗΚ$(32):ΚΕΜ  Διαγραφή  τελευταίου+ 

700  : 

710  ΡΚΙΝΤ 

720  ΡΚΙΝΤ  «ΜΕ  ΤΟ» 

730  ΡΚΙΝΤ 
740  : 

750  ΡΟΚ  ϊ=η%  ΤΟ  0  δΤΕΡ  -1 
760  :  ΡΡΙΝΤ  Ε( ί  );"*χΑϊ; 

770  ΝΕΧΤ 

780  ΡΚΙΝΤ  0ΗΚ'$(  8);0ΗΚ$(32) :  ΚΕΜ  Διαγραφή  τελευταίου  + 

790  : 

800  ΡΚΙΝΤ 
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810  ΡΡΙΝ1 -ΕΙΝΑΙ» 

820  ΡΡΙΝΐ 
830  : 

840  ΡΟΡ  )=π%+πι%  ΤΟ  Ο  5ΤΕΡ  -1 
850  :  ΡΡΙΝΤ  ς( } );"*χΑ”; 

860  ΝΕΧΤ 

870  ΡΡΙΝΤ  0ΗΚ$(8);0ΗΡ$(32) : ΡΕΜ  Διαγραφή  τελευταίου  + 

880  : 

890  ΡΡΙΝΤ: ΡΡΙΝΤ 

900  ΙΝΡ11Τ«ΘΕΛΕΙΣ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η)»,γ$ 

910  ΙΡ  1_ΕΡΤ$(Ι-01ΙΕΡ$(  γ$),1)="γ"  ΤΗΕΝ  ΡΙΙΝ 
920  01$ 

930  ΕΝΡ 
940  : 

950  : 

960  ΡΕΜ  Ρουτίνα  σφάλματος 

970  ΡΡΙΝΤ«0  ΥΠΟΛΟΓΙΣΜΟΣ  ΕΙΝΑΙ  ΠΕΡΑ  ΑΠΟ  ΤΙΣ  ΔΥΝΑΤΟΤΗΤΕΣ» 

980  ΡΡΙΝΤ  «ΤΟΥ  ΥΠΟΛΟΓΙΣΤΗ». 

990  ΡΡΙΝΤ: ΡΡΙΝΤ 

1000  ΡΡΙΝΤ«ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  » 
1010  3$=ΙΝΚΕΥ$: ΙΡ  3$=""  ΤΗΕΝ  1010 
1020  ΡυΝ 
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Π97  ΜΕΘΟΔΟΣ  ΤΗΣ  ΤΕΜΝΟΥΣΑΣ 


Αυτό  το  πρόγραμμα  χρησιμοποιείται  για  να  βρίσκει  μια  ρίζα  κάθε  συνάρτη¬ 
σης  μιας  μεταβλητής.  Η  μέθοδος  της  τέμνουσας  μπορεί  να  παρασταθεί  γεω¬ 
μετρικά  ως  εξής: 

Θεώρησε  το  διάγραμμα: 


Εάν  τα  χγ  και  χγ-1  βρίσκονται  εκατέρωθεν  μιας  ρίζας  τότε  μπορούμε  να  φέ¬ 
ρουμε  την  τέμνουσα  που  διέρχεται  από  τα  σημεία  (χγ-1,  Γ(χγ-1))  και  (χγ,Γ(χγ)). 
Η  τέμνουσα  τέμνει  τον  χ-άξόνα  στο  σημείο  χγ+1.  Με  τον  χγ+1  σαν  νέα  προ¬ 
σέγγιση  συνεχίζουμε  κατά  τον  ίδιο  τρόπο. 

Από  την  ομοιότητα  των  δυό  τριγώνων  του  διαγράμματος  προκύπτει  η  σχέση: 


Γ+1  -  VI  =  ΧΓ, 

-«V!*  ί(ΧΓ> 


χ  „  =  χ  -  ί(χ_)  (X,  -  χγ_!> 

’  *  ρ+1  Γ  Γ  Γ - 1—1— 


■Κχ  )  -  ί(χΓ-1> 
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Η  ίδια  σχέση  προκύπτει  και  για  την  περίπτωση  όπου  και  οι  δύο  προσεγγί¬ 
σεις  βρίσκονται  στην  ίδια  μεριά  ως  προς  τη  ρίζα. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τη  συνάρτηση  και  τις  αρχικές  προσεγγίσεις  όταν  σου  ζητηθεί: 
Καθόρισε  την  απαιτούμενη  ακρίβεια  όταν  σου  ζητηθεί. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


ΡΕΜ  Μέθοδος  της  Τέμνουσας 

ΙΝΚ  0,1 

ΙΝΚ  1,24 

ΡΑΡΕΡ  0 

ΡΕΝ  1 

Β0ΡΘΕΡ  1 

Μ0ΡΕ  1 

ΡΡΙΝΤ  ΤΑΒ(14)  «ΜΕΘΟΔΟΣ  ΤΗΣ  ΤΕΜΝΟΥΣΑΣ» 

ΡΡΙΝΤ  ΤΑΒ(  14)  ******************* 

ΡΡΙΝΤ: ΡΡΙΝΤ 

ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΧΡΗΣΙΜΟΠΟΙΕΙ  ΤΗ  ΜΕΘΟΔΟ  ΤΗΣ» 

ΡΡΙΝΤ  «ΤΕΜΝΟΥΣΑΣ ' ΓΙΑ  ΝΑ  ΒΡΕΙ  ΤΗ  ΡΙΖΑ  ΜΙΑΣ  ΕΞΙΣΩΣΗΣ» 

ΡΡΙΝΤ 

ΡΡΙΝΤ  «ΕΧΕ  ΥΠΟΨΗ  ΣΟΥ  ΟΤΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΘΑ  ΠΡΟΣΠΑΘΗΣΕΙ  ΝΑ» 
ΡΡΙΝΤ  «ΕΝΤΟΠΙΣΕΙ  ΜΙΑ  ΡΙΖΑ  ΜΕΣΑ  Σ'  ΕΝΑ  ΔΙΑΣΤΗΜΑ  ΑΚΟΜΗ  ΚΑΙ  ΑΝ» 
ΡΡΙΝΤ  „η  ΕΞΙΣΩΣΗ  ΔΕΝ  ΕΧΕΙ  ΡΙΖΑ».\ 

ΡΡΙΝΤ 

ΡΡΙΝΤ  “ΠΡΕΠΕΙ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗ  ΣΥΝΑΡΤΗΣΗ», 

ΡΡΙΝΤ  «ΤΟ  ΔΙΑΣΤΗΜΑ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  X  ΜΕΣΑ  ΣΤΟ  ΟΠΟΙΟ» 

ΡΡΙΝΤ  «ΒΡΙΣΚΕΤΑΙ  Η  ΡΙΖΑ  ΚΑΙ  ΤΗΝ  ΑΠΑΙΤΟΥΜΕΝΗ  ΑΚΡΙΒΕΙΑ». 
ΡΡΙΝΤ:ΡΡΙΝΤ 

ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 

3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  230 


01-5 

ΡΡΙΝΤ  «ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗ  ΣΥΝΑΡΤΗΣΗ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΠΡΩΤΑ:» 
ΡΡΙΝΤ 

ΡΡΙΝΤ"400  άβί  ίΠ3(χ)=" 

ΡΡΙΝΤ  «ΚΑΙ  ΑΜΕΣΩΣ  ΜΕΤΑ  ΤΗ  ΣΥΝΑΡΤΗΣΗ» 

ΡΡΙΝΤ  «ΑΚΟΛΟΥΘΟΥΜΕΝΗ  ΑΠΟ  ΤΟ  ΕΝΤΕΚ.  ΜΕΤΑ» 

ΡΡΙΝΤ  «ΑΠΟ  ΑΥΤΟ,  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΗΝ  ΕΝΤΟΛΗ:» 

ΡΡΙΝΤ 

ΡΡΙΝΤΎυπ  400" 

ΡΡΙΝΤ 

ΡΡΙΝΤ  «ΚΑΙ  ΠΑΤΗΣΕ  ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΡ  ΚΑΙ  ΠΑΛΙ» 

ΡΗΙΝΤ:ΡΡΙΝΤ:ΡΡΙΝΤ 

5Τ0Ρ 

Αυτή  η  γραμμή  αντικαθίσταται  από  την  εισαγόμενη  συνάρτηση. 

€Ι_$ 

0Ν  ΕΡΡ0Ρ  60Τ0  860 

ΙΝΡυΤ  «ΠΡΩΤΟ  ΣΗΜΕΙΟ  -  χ=»;ρ1 

ΡΡΙΝΤ 

ΙΝΡυΤ  «ΔΕΥΤΕΡΟ  ΣΗΜΕΙΟ  -  χ=»;ρ2 
ΡΡΙΝΤ 
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480  ΙΝΡυΤ  «ΑΚΡΙΒΕΙΑ»;  αο 
490  ΡΚΙΝΤΓ  ΡΚΙΝΤ 
500  :  · 

510  ΡΟΚ  Γ=1  ΤΟ  40 
520  :  Π  =  ΡΝ3(ρ1) 

530  :  Τ2=ΡΝ3(ρ2) 

540  :  ρ3=ρ2-ΐ2*(ρ2-ρ1 )/(Τ2-Τ1) 

550  :  ρ1=ρ2 

560  :  ρ2=ρ3 

570  :  ΙΡ  ΑΒ5(ρ2-ρ1Χ=ΑΒ5(3θ)  ΤΗΕΝ  605υΒ  690:Τ=1:γ=40 
580  ΝΕΧΤ 

590  ΙΡ  ί=0  ΤΗΕΝ  60$υΒ  760 
600  : 

610  ΡΚΙΝΤ:  ΡΚΙΝΤ  ,  Μ 

620  ΙΝΡυΤ  «ΘΕΣ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η)»,γ5 

630  ΙΡ  ΕΕΡΤ$(Ε0νίΕΚ$(/$),1)  =  Ύ'  ΤΗΕΝ  ΡϋΝ 

640  0Ε5 

650  ΕΝϋ 

660  : 

670  : 

680  ΚΕΙΊ  Εντοπισμός  της  ρίζας 
690  ΡΒΙΝΤ  ·<Η  ΡΙΖΑ  ΕΙΝΑΙ»;  ρ2 
700  ΡΚΙΝΤ 

710  ΡΚΙΝΤ  «ΚΑΙ  ΒΡΕΘΗΚΕ  ΜΕΤΑ  ΑΠΟ»;  γ;  «ΠΡΟΣΕΓΓΙΣΕΙΣ» 

720  ΚΕΤΟΚΝ 
730  : 

740  : 

750  ΚΕΜ  Μη  εντοπισμός  της  ρίζας 

760  ΡΚΙΝΤ  «Η  ΡΙΖΑ  ΔΕΝ  ΒΡΕΘΗΚΕ  ΜΕΤΑ  ΑΠΟ  40  ΠΡΟΣΕΓΓΙΣΕΙΣ». 

770  ΡΚΙΝΤ 

780  ΡΚΙΝΤ  “ΕΑΝ  ΥΠΑΡΧΕΙ  ΚΑΠΟΙΑ  ΡΙΖΑ  ΣΤΟ  ΔΙΑΣΤΗΜΑ» 

790  ΡΚΙΝΤ  «ΠΟΥ  ΚΑΘΟΡΙΣΕΣ,  ΘΑ  ΒΡΙΣΚΕΤΑΙ  ΜΕΤΑΞΥ» 

800  ΡΚΙΝΤ 

810  ΡΚΙΝΤ  ρ1;«ΚΑΙ»;ρ2 
820  ΚΕΤυΚΝ 
830  : 

840  : 

850  ΚΕΜ  Ρουτίνα  σφάλματος 

860  ΡΚΙΝΤ  «ΕΙΝΑΙ  ΑΔΥΝΑΤΟΣ  Ο  ΕΝΤΟΠΙΣΜΟΣ  ΤΗΣ  ΡΙΖΑΣ  ΜΕ» 

870  ΡΚΙΝΤ  «τα  ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΒΑΛΕΣ». 

880  ΡΚΙΝΤ 

890  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ». 
900  3$=ΙΝΚΕΥ$: ΙΡ  3$=""  ΤΗΕΝ  900 
910  κυΝ 
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Π98  ΜΕΘΟΔΟΣ  ΤΩΝ  ΔΙΧΟΤΟΜΗΣΕΩΝ 


Η  μέθοδος  των  διχοτομήσεων  εκμεταλεύεται  τις  αλλαγές  των  προσήμωνγια 

να  εντοπίσει  μια  ρίζα  μιας  συνάρτησης.  Φαντάσου  το  παρακάτω  διάγραμμα: 


Εάν  έχουμε  δύο  σημεία,  χγ  και  χγ-1,  τέτοια  ώστε  οι  Γ(χγ)  και  Γ(χγ-1)  να  είναι 
ετερόσημες,  τότε  υπάρχει  μια  ρίζα  μεταξύ  των  χγ  και  χγ-  1 .  Στη  συνέχεια  υπο¬ 
λογίζουμε  την  τιμή  της  συνάρτησης  στο  μέσο  χγτι  του  διαστήματος  που  ορί¬ 
ζουν  τα  σημεία  χγ  και  χγ-Ι.  Αν  χπι=0  τότε  έχουμε  μια  ρίζα.  Εάν  όμως  το 
δΟΝ(ί(χπι))δεν  ισούται  με  το  δΟΝ(ί(χΓ- 1)),  τότε  η  ρίζα  βρίσκεται  μεταξύ  των 
σημείων  χπι  και  χγ-1.  Αν  όχι  τότε  η  ρίζα  βρίσκεται  μεταξύ  των  σημείων  χπι 
και  χγ. 

Αυτή  η  ιδέα  βρίσκεται  πίσω  από  τη  μέθοδο  των  διχοτομήσεων  και  χρησιμο¬ 
ποιείται  από  το  πρόγραμμα  που  παρουσιάζουμε  εδώ. 

ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τη  συνάρτηση  και  τα  άκρα  του  διαστήματος  μέσα  στο  οποίο  βρίσκεται 
η  ρίζα,  όταν  σου  ζητηθεί. 

Καθόρισε  την  απαιτούμενη  ακρίβεια  όταν  σου  ζητηθεί. 


10  ΚΕΜ  Μέθοδος  των  διχοτομήσεων 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΚ  0 

50  ΡΕΝ  1 

60  Β0ΚΡΕΚ  1 

70  Μ0ΘΕ  1 

80  ΡΚΙΝΤ  ΤΑΒ(  10)  “ΜΕΘΟΔΟΣ  ΤΩΝ  ΔΙΧΟΤΟΜΗΣΕΩΝ» 

90  ΡΚΙΝΤ  ΤΑΒ(  10)  ,**»****»♦  . . * 

100  ρκιντ:ρκιντ 

110  ΡΚΙΝΤ  "ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΗ  ΜΕΘΟΔΟ  ΤΩΝ» 

120  ΡΚΙΝΤ  -ΔΙΧΟΤΟΜΗΣΕΩΝ  ΓΙΑ  ΝΑ  ΒΡΕΙ  ΤΗ  ΡΙΖΑ  ΜΙΑΣ» 

130  ΡΚΙΝΤ  ..ΕΞΙΣΩΣΗΣ» 

140  ΡΚΙΝΤ 

150  ΡΚΙΝΤ  ..ΣΗΜΕΙΩΣΕ  ΟΤΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΘΑ  ΠΡΟΣΠΑΘΗΣΕΙ  ΝΑ» 

160  ΡΚΙΝΤ' "ΕΝΤΟΠΙΣΕΙ  ΤΗ  ΡΙ7Α  ΜΕΣΑ  Σ’  Ε.ΝΑ  ΔΙΑΣΤΗΜΑ  ΑΚΟΜΗ  ΚΑΙ» 
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170  ΡΡΙΝΤ  «ΑΝ  Η  ΕΞΙΣΩΣΗ  ΔΕΝ  ΕΧΕΙ  ΡΙΖΑ». 

180  ΡΡΙΝΤ 

190  ΡΡΙΝΤ  «ΠΡΕΠΕΙ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗΝ  ΣΥΝΑΡΤΗΣΗ», 

200  ΡΡΙΝΤ  «ΤΟ  ΔΙΑΣΤΗΜΑ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ  ΜΕΣΑ  ΣΤΟ  ΟΠΟΙΟ» 

210  ΡΡΙΝΤ  «ΒΡΙΣΚΕΤΑΙ  Η  ΡΙΖΑ  ΚΑΙ  ΤΗΝ  ΑΠΑΓΓΟΥΜΕΝΗ  ΑΚΡΙΒΕΙΑ». 

220  ΡΡΙΝΤ: ΡΡΙΝΤ 

230  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ». 

240  3$=ΙΝΚΕΥ$: ΙΡ  3$=""  ΤΗΕΝ  240 
250  : 

260  0Ι_5 

270  ΡΡΙΝΤ  «ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗ  ΣΥΝΑΡΤΗΣΗ  ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ» 
280  ΡΡΙΝΤ  «ΠΡΩΤΑ:»  :ρκινΤ 
290  ΡΡΙΝΤ'ΆΙΟ  όθί  Ιη3(χ)=" 

300  ΡΡΙΝΤ 

310  ΡΡΙΝΤ  «ΚΑΙ  ΑΜΕΣΩΣ  ΜΕΤΑ  ΤΗ  ΣΥΝΑΡΤΗΣΗ» 

320  ΡΡΙΝΤ  «ΑΚΟΛΟΥΘΟΥΜΕΝΗ  ΑΠΟ  ΤΟ  ΕΝΤΕΚ.  ΜΕΤΑ» 

330  ΡΡΙΝΤ  «ΑΠΟ  ΑΥΤΟ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΗΝ  ΕΝΤΟΛΗ:» 

340  ΡΡΙΝΤ 

350  ΡΡΙΝΤΎιιη  410" 

360  ΡΡΙΝΤ 

370  ΡΡΙΝΤ «ΚΑΙ  ΠΑΤΗΣΕ  ΠΑΛΙ  ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΚ». 

380  ΡΡΙΝΤ: ΡΡΙΝΤ: ΡΡΙΝΤ 
390  5Τ0Ρ 
400  : 

410  ΡΕΗ  Αυτή  η  γραμμή  αντικαθίσταται  από  την  εισαγόμενη  συνάρτηση. 

420  : 

430  01.5 

440  ΟΝ  ΕΡΡΟΡ  60Τ0  850 

450  ΙΝΡυΤ  «ΠΡΩΤΟ  ΣΗΜΕΙΟ  -  χ=»;ρΙ 

460  ΡΡΙΝΤ 

470  ΙΝΡίΙΤ  «ΔΕΥΤΕΡΟ  ΣΗΜΕΙΟ  -  χ=»;ο2 
480  ΡΡΙΝΤ 

490  ΙΝΡυΤ  «ΑΚΡΙΒΕΙΑ»;  αο 
500  ΡΡΙΝΤ: ΡΡΙΝΤ 
510  : 

520  3=1/ (ρ1~ρ2) 

530  Ρ0Ρ  γ  =  1  ΤΟ  40 
540  :  ΐ=(ρ1+ρ2)/2: Κ=ρ 1 

550  :  ΙΡ  56Ν(ΡΝ3(ί))=56Ν(ΡΝ3(Κ))  -ΤΗΕΝ  ρ1=ΐ:ΕΙ_5Ε  ρ2=ΐ 

560  :  ΙΡ  ΡΝ3(ΐ)=0  ΤΗΕΝ  ΡΡΙΝΤ«Η  ΛΥΣΗ  ΕΙΝΑΙ»; ι:γ=40:  5=3  ΕΙ_5Ε  5=0 

570  :  ΗΗΙΕΕ  5=0 

580  :  ΙΡ  50Ν(ΡΝ3(ρ1))=56Ν(ΡΝ3(ρ2))  ΤΗΕΝ  ίς=1  ΕΕ5Ε  ίς=0 

590  :  ΙΡ  ΑΒ5(ρ1-ρ2Χ=ΑΒ5(3ς)  ΑΝβ  ΐ9=0  ΤΗΕΝ  5=1:γ=40 

600  :  ΙΡ  5=0  ΤΗΕΝ  5=2 

610  :  ΜΕΝΡ 
620  ΝΕΧΤ 

630  ΟΝ  5  605ΙΙΒ  730,780 
640  : 

650  ΡΡΙΝΤ:ΡΡΙΝΤ 

660  ΙΝΡυΤ  «ΘΕΛΕΙΣ  ΝΑ  -ΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η)»;γ$ 

670  ΙΡ  Ι_ΕΡΤ$(Ι_0ΜΕΡ$(χ$),1  )  =  "/’'  ΤΗΕΝ  ΡυΝ 
680  0Ε5 
690  ΕΝΰ 
700  : 

710  : 

720  ΡΕΜ  Εντοπισμός  της  ρίζας 

730  ΡΡΙΝΤ  «Η  ΡΙΖΑ  ΒΡΙΣΚΕΤΑΙ  ΜΕΤΑΞΥ;» 

740  ΡΡΙΝΤ 

750  ΡΡΙΝΤ  ρΐ;  «ΚΑΙ»;ρ2 
760  ΡΕΤυΡΝ 
770  : 

780  : 
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790  ΚΕΜ  Μη  εντοπισμός  της  ρίζας 

800  ΡΚΙΝΤ «Η  ΡΙΖΑ  ΔΕΝ  ΒΡΕΘΗΚΕ  ΜΕΤΑ  ΑΠΟ  40  ΠΡΟΣΕΓΓΙΣΕΙΣ». 

810  ΚΕΤΙΙΚΝ 
820  : 

830  : 

840  ΚΕΜ  Εγγογ  Ρουτίνα  σφάλματος 

850  ΡΚΙΝΤ  «Η  ΡΙΖΑ  ΔΕΝ  ΜΠΟΡΕΙ  ΝΑ  ΒΡΕΘΕΙ  ΑΠΟ  ΤΑ» 

860  ΡΚΙΝΤ  «ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΒΑΛΕΣ» 

870  ΡΚΙΝΤ 

880  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ». 
890  3$=ΙΝΚΕΥ$:ΪΡ  3$=μ"  ΤΗΕΝ  890 
900  κυΝ 
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Π99  ΚΑΝΟΝΑΣ  ΤΟΥ  ΤΡΑΠΕΖΙΟΥ 


Αυτό  το  πρόγραμμα  εφαρμόζει  τον  κανόνα  του  τραπεζίου  για  να  υπολογίσει 
ένα  ορισμένο  ολοκλήρωμα  της  μορφής: 

1=1  ί(χ)Ρχ 

Έτσι  το  πρόγραμμα  χρειάζεται  τα  εξής  στοιχεία: 

Γ(χ) 

ά  και  β 

Σαν  ορισμένο  ολοκλήρωμα  μπορούμε  να  θεωρήσουμε  το  εμβαδόν  της  επιφά¬ 
νειας  που  βρίσκεται  κάτω  από  το  γράφημα  μιας  συνάρτησης.  Με  τον  κανόνα 
του  τραπεζίου  προσεγγίζεται  αυτή  η  επιφάνεια  με  μια  σειρά  τραπεζίων,  όπως 
φαίνεται  στο  παρακάτω  διάγραμμα: 
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ΕΝΤΟΛΕΣ 


Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 
Ακολούθησε  τις  οδηγίες. 


10  ΚΕΜ  Κανόνας  των  τραπεζίων 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΚ  0 

50  ΡΕΝ  1 

60  Β0ΚΘΕΚ  1 

70  Μ00Ε  1 

80  ΡΚΙΝΤ  ΤΑΒ(  12)  «ΚΑΝΟΝΑΣ  ΤΩΝ  ΤΡΑΠΕΖΙΩΝ» 

90  ΡΚΙΝΤ  ΤΑΒ(  12)  <«**»*»*  »**:»**»**„ 

100  ΡΚΙΝΤ: ΡΚΙΝΤ 

110  ΡΚΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΟΝ  ΚΑΝΟΝΑ  ΤΩΝ  ΤΡΑΠΕΖΙΩΝ 
120  ΡΚΙΝΤ  «ΓΙΑ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙ  ΕΝΑ  ΟΡΙΣΜΕΝΟ  ΟΛΟΚΛΗΡΩΜΑ» 

130  ΡΚΙΝΤ 

140  ΡΚΙΝΤ  «ΠΡΕΠΕΙ  ΝΑ  ΕΙΣΑΓΕΙΣ  » 

150  ΡΚΙΝΤ 

160  ΡΚΙΝΤ  ΤΑΒ(4)  «1.  ΤΗ  ΣΥΝΑΡΤΗΣΗ  ΤΟΥ  χ.» 

170  ΡΚΙΝΤ 

180  ΡΚΙΝΤ  ΤΑΒ(4)«2.  ΤΟ  ΔΙΑΣΤΗΜΑ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ» 

190  ΡΚΙΝΤ  ΤΑΒ(7)  «ΣΤΟ  ΟΠΟΙΟ  ΘΕΛΕΙΣ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ» 

200  ΡΚΙΝΤ  ΤΑΒ( 7)  „τθ  ΟΛΟΚΛΗΡΩΜΑ». 

210  ΡΚΙΝΤ 

220  ΡΚΙΝΤ  ΤΑΒ(4)  «3.  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΤΗΜΑΤΩΝ  ,Π  ΟΥ,  ΧΩΡΙΖΕΙΣ  ΤΗΝ  ΚΑΜΠΥΛΗ 
230  ΡΚΙΝΤ: ΡΚΙΝΤ 

240  ΡΚΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 

250  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  250 
260  : 

270  0Ε5 

280  ΡΚΙΝΤ  «ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗ  ΣΥΝΑΡΤΗΣΗ  ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ-» 
290  ΡΚΙΝΤ 

300  ΡΚΙΝΤ"420  όεί  1π3(χ)=" 

310  ΡΚΙΝΤ 

320  ΡΚΙΝΤ  «ΚΑΙ  ΑΜΕΣΩΣ  ΜΕΤΑ  ΤΗ  ΣΥΝΑΡΤΗΣΗ», 

330  ΡΚΙΝΤ  «ΑΚΟΛΟΥΘΟΥΜΕΝΗ  ΑΠΟ  ΤΟ  ΕΝΤΕΚ.  ΜΕΤΑ» 

340  ΡΚΙΝΤ  «ΑΠΟ  ΑΥΤΟ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΗΝ  ΕΝΤΟΛΗ:» 

350  ΡΚΙΝΤ 

360  ΡΚΙΝΤΎυη  420" 

370  ΡΚΙΝΤ 

380  ΡΚΙΝΤ'«ΚΑΙ  ΠΑΤΗΣΕ  ΠΑΛΙ  ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΚ» 

390  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 
400  5Τ0Ρ 
410  : 

420  ΚΕΜ  Αυτή  η  γραμμή  αντικαθίσταται  από  την  εισαγόμενη  συνάρτηση. 

430  : 

440  0Ε5 

450  ΟΝ  ΕΚΚ0Κ  60Τ0  900 

460  ΙΝΡυΤ  «ΚΑΤΩΤΕΡΟ  ΟΡΙΟ  ΤΟΥ  ΔΙΑΣΤΗΜΑΤΟΣ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ»;  3 
470  ΡΚΙΝΤ 

480  ΙΝΡΙΙΤ  «ΑΝΩΤΕΡΟ  ΟΡΙΟ  ΤΟΥ  ΔΙΑΣΤΗΜΑΤΟΣ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ»;  6 
490  ΡΚΙΝΤ 

500  ΙΝΡυΤ  «ΑΡΙΘΜΟΣ ΣΗΜΕΙΩΝ»;η% 

510  ΙΡ  π%<2  ΤΗΕΝ  η%=2 
520  ΙΡ  3>ό  ΤΗΕΝ  3=ό 
530  ΡΚΙΝΤ: ΡΚΙΝΤ 
540  : 
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550  ή=(&-3)/η% 

560  Ιο=ΡΝ3(3)/2 
570  ίιϊ  =  ΡΝ3(6)/2 
580  χ=3 
590  : 

600  ΡΟΚ  ϊ=1  ΤΟ  η%-1 

610  :  .  χ=χ+ίι 

620  :  Κ=Ι<+ΡΝ3(χ) 

630  ΝΕΧΤ 

640  ϊΐ=(  Ιο+Ιιϊ+ΙΟ*Ιι 
650  : 

660  ΡΚΙΝΤ  ΤΑΒ(ΙΟ)  «ΟΛΟΚΛΗΡΩΜΑ  =»;ϊι 

670  ΡΚΙΝΤ  ΤΑΒ(ΙΟ)" - 

680  ΡΟΚ  η=1  ΤΟ  Ι_ΕΝ(5ΤΚ$(  ϊΐ) ): ΡΚΙΝΤ"-”; : ΝΕΧΤ 
690  : 

700  ΡΚΙΝΤ:ΡΚΙΝΤ:ΡΚΙΝΤ 

710  ΙΝΡυΤ  «ΘΕΣ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η>>; 

720  ΙΡ  ΕεΡΤίαΟΗΕΚίΙχί),!)^·/·  ΤΗΕΝ  ΚυΝ 

730  01_δ 

740  ΕΝΡ 

750  : 

760  : 

770  ΚΕΜ  Εντοπισμός  της  ρίζας 

780  ΡΚΙΝΤ"  Η  ΡΙΖΑ  ΒΡΙΣΚΕΤΑΙ  ΜΕΤΑΞΥ: 

790  ΡΚΙΝΤ 

800  ΡΚΙΝΤ  ρΐ;"  ΚΑΙ  ";ρ2 
810  ΚΕΤυΚΝ 
820  : 


830  : 

840  ΚΕΜ  Μη  εντοπισμός  της  ρίζας 

850  ΡΚΙΝΤ  "Η  ΡΙΖΑ  ΔΕΝ  ΒΡΕΘΗΚΕ  ΜΕΤΑ  ΑΠΟ  40  ΠΡΟΣΕΓΓΙΣΕΙΣ.·1 
860  ΚΕΤυΚΝ 


870  : 
880  : 


890  ΚΕΜ  Ρουτίνα  σφάλματος 

900  ΡΚ I ΝΤ  "  Η  ΡΙΖΑ  ΔΕΝ  ΜΠΟΡΕΙ  ΝΑ  ΒΡΕΘΕΙ  ΑΠΟ  ΤΑ 
910  ΡΚΙΝΤ"ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΒΑΛΕΣ." 

920  ΡΚΙΝΤ 

930  ΡΚΙΝΤ"ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ." 
940  3$=ΙΝΚΕΥ$:  ΙΡ  3$=""  ΤΗΕΤΙ  940 


950  κυΝ 


226 


Π100  ΚΑΝΟΝΑΣ  ΤΟΥ  δΙΜΡδΟΝ 


Ο  κανόνας  του  διαίρεση  είναι  πιο  περίπλοκος  από  το  κανόνα  του  τραπεζίου. 
Εδώ  προσαρμόζουμε  μια  δευτεροβάθμια  καμπύλη,  κι’  όχι  μια  ευθεία  γραμ¬ 
μή,  μεταξύ  των  άκρων  κάθε  διαστήματος.  Ο  κανόνας  δίνεται  από  την  παρα¬ 
κάτω  σγέση: 


ί(χ)6χ  — 


ί(χ0)  +  4ί(χ1)  +  2ί(χ2>  +  4ί(χ3) 


+  2ί(χ.)  +...+  ί(χ  ) 

4  η  ] 

όπου  χ0  =  θ,  χη  =6  (ο  η  είναι  άρτιος),  χ.  =  3  +  ϊ  *  Η. 


ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 

Δώσε  τη  συνάρτηση  σύμφωνα  με  τις  οδηγίες. 

Δώσε  τα  3  και  ό  όταν  ζητηθούν. 

Δώσε  ένα  άρτιο  αριθμό  σημείων  όπως  απαιτείται.  Αν  εισάγεις  έναν  περιττό 
αριθμό  το  πρόγραμμα  θα  τον  μετατρέψει  σε  άρτιο,  προσθέτοντας  το  1. 


10  ΡΕΜ  Κανόνας  του  5ίιτιρ$οη 

20  ΙΝΚ  0,1 

30  ΙΝΚ  1,24 

40  ΡΑΡΕΡ  0 

50  ΡΕΝ  1 

60  Β0ΡΡΕΡ  1 

70  Η0ΡΕ  1 

80  ΡΡΙΝΤ  ΤΑΒ(  13)  «ΚΑΝΟΝΑΣ  ΤΟΥ  5ΙΜΡ50Ν» 

90  ΡΡΙΝΤ  ΤΑΒ(  13)  „»«******·*«*'*·***  *  „ 

100  ΡΡΙΝΤίΡΚΙΝΤ 

110  ΡΡΙΝΤ  «ΑΥΤΟ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  ΕΦΑΡΜΟΖΕΙ  ΤΟΝ  ΚΑΝΟΝΑ  ΤΟΥ  5ΙΜΡ50Ν» 
120  ΡΡΙΝΤ ..ΓΙΑ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙ  ΕΝΑ  ΟΡΙΣΜΕΝΟ  ΟΛΟΚΛΗΡΩΜΑ» 

130  ΡΡΙΝΤ 

140  ΡΡΙΝΤ  «ΠΡΕΠΕΙ  ΝΑ  ΕΙΣΑΓΕΙΣ:» 

150  ΡΡΙΝΤ 

160  ΡΡΙΝΤ  ΤΑΒ(4  )  «1.  ΤΗ  ΣΥΝΑΡΤΗΣΗ  ΤΟΥ  χ». 

170  ΡΡΙΝΤ 

180  ΡΡΙΝΤ  ΤΑΒ(4)  «2.  ΤΟ  ΔΙΑΣΤΗΜΑ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ» 

190  ΡΡΙΝΤ  ΤΑΒ( 7 )  «ΣΤΟ  ΟΠΟΙΟ  ΘΕΛΕΙΣ  ΝΑ  ΥΠΟΛΟΓΙΣΕΙΣ» 

200  ΡΡΙΝΤ  ΤΑΒ( 7)  «ΤΟ  ΟΛΟΚΛΗΡΩΜΑ». 

210  ΡΡΙΝΤ 

220  ΡΡΙΝΤ  ΤΑΒ(4 ) «3.  ΤΟΝ  ΑΡΙΘΜΟ  ΤΩΝ  ΤΜΗΜΑΤΩΝ  ΣΤΑ  ΟΠΟΙΑ  ΧΩΡΙΖΕΙΣ» 
:  ΡΡΙΝΤ  «  ΤΗΝ  ΚΑΜΠΥΛΗ» 

230  ΡΡΙΝΤ  ΤΑΒ ( 7 )  «(ΑΥΤΟΣ  ΠΡΕΠΕΙ  ΝΑ  ΕΙΝΑΙ  ΖΥΓΟΣ)». 

240  ΡΡΙΝΤ: ΡΡΙΝΤ 

250  ΡΡΙΝΤ  «ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΣΥΝΕΧΙΣΕΙΣ» 
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260  3$=ΙΝΚΕΥ$:ΙΡ  3$=""  ΤΗΕΝ  260 
270  : 

280  0Ε5 

290  ΡΡΙΝΤ  «ΓΙΑ  ΝΑ  ΕΙΣΑΓΕΙΣ  ΤΗ  ΣΥΝΑΡΤΗΣΗ,  ΠΑΡΑΚΑΛΩ  ΠΛΗΚΤΡΟΛΟΓΗΣΕ». 

:  ΡΡΙΝΤ  «ΠΡΩΤΑ:.. 

300  ΡΡΙΝΤ 

310  ΡΡΙΝΤ"430  άεί  Ιη3<χ)=" 

320  ΡΡΙΝΤ 

330  ΡΡΙΝΤ  «ΚΑΙ  ΑΜΕΣΩΣ  ΜΕΤΑ  ΤΗ  ΣΥΝΑΡΤΗΣΗ», 

340  ΡΡΙΝΤ  «ΑΚΟΛΟΥΘΟΥΜΕΝΗ  ΑΠΟ  ΤΟ  ΕΝΤΕΚ.  ΜΕΤΑ» 

350  ΡΡΙΝΤ, «ΑΠΟ  ΑΥΤΟ,  ΠΛΗΚΤΡΟΛΟΓΗΣΕ  ΤΗΝ  ΕΝΤΟΛΗ:» 

360  ΡΡΙΝΤ 

370  ΡΡΙΝΤ"πιη  430" 

380  ΡΡΙΝΤ 

390  ΡΡΙΝΤ  «ΚΑΙ  ΠΑΤΗΣΕ  ΠΑΛΙ  ΤΟ  ΠΛΗΚΤΡΟ  ΕΝΤΕΚ». 

400  ρριντ:ρριντ:ρριντ 
410  8Τ0Ρ 
420  : 

430  ΡΕΜ  Αυτή  η  γραμμή  αντικαθίσταται  από  την  εισαγόμενη  συνάρτηση. 

440  : 

450  0Ε5 

460  ΟΝ  ΕΡΡ0Ρ  60ΤΟ  970 

470  ΙΝΡυΤ  «ΚΑΤΩΤΕΡΟ  ΟΡΙΟ  ΤΟΥ  ΔΙΑΣΤΗΜΑΤΟΣ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ»;  3 
480  ΡΡΙΝΤ 

490  ΙΝΡυΤ  «ΑΝΩΤΕΡΟ  ΟΡΙΟ  ΤΟΥ  ΔΙΑΣΤΗΜΑΤΟΣ  ΤΩΝ  ΤΙΜΩΝ  ΤΟΥ  χ»;6 
500  ΡΡΙΝΤ 

510  ΙΝΡΙΠ  «ΑΡΙΘΜΟΣ  ΣΗΜΕΙΩΝ»;  η% 

520  ΙΡ  η%<4  ΤΗΕΝ  η%=4 

530  ΙΡ  π%-( ΙΝΤ(π%/2) )*2<>0  ΤΗΕΝ  π%=η%+1 

540  ΡΕΜ  Η  προηγούμενη  γραμμή  κανονίζει  ώστε  ο  η%  να  είναι  σίγουρα  ζυγός. 

550  ΙΡ  3>&  ΤΗΕΝ  3=6 
560  ΡΡΙΝΤ: ΡΡΙΝΤ 
570  : 

580  ή=<Π-3)/η% 

590  Ρί=ΡΝ3(3)/2 
600  ΐ3=ΡΝ3<&)/2 
610  χ=3 
620  : 

630  Ρ0Ρ  )=1  ΤΟ  π%-3  5ΤΕΡ  2 

640  :  χ=χ+Η 

650  :  οό=θίί+ΡΝ3(χ) 

660  :  χ=χ+Η 

670  :  εν=θν+ΡΝ3(χ) 

680  ΝΕΧΤ 

690  χ=χ+ή 

700  οά=θ(1+ΡΝ3(χ) 

710  ίΐ=(ί  ϊ  +  ΐ3+4*οο)+2*θυ)*Ιι/3 
720  : 

730  ΡΡΙΝΤ  ΤΑΒ(  10)  «ΟΛΟΚΛΗΡΩΜΑ  =»;  ιΐ 

740  ΡΡΙΝΤ  ΤΑΒ( 10) . . 

750  Ρ0Ρ  π=1  ΤΟ  ΕΕΝ(5ΤΡ$( ϊΐ)):ΡΡΙΝΤ"-";:ΝΕΧΤ 
760  : 

770  ρριντ:ρριντ:ρρ;ντ 

780  ΙΝΡϋΤ  «ΘΕΛΕΙΣ  ΝΑ  Ξ  ΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ  (γ/η)»;γ$ 

790  ΙΡ  ΕΕΡΤ$αθΗΕΡ$(γ$),1)="γ"  ΤΗΕΝ  ΡυΝ 
800  0Ε5 
810  ΕΝΰ 
820  : 

33°  :  _  .  _ 

840  ΡΕΜ  Ενιοπισμος  της  ρίζας 

850  ΡΡΙΝΤ  «Η  ΡΙΖΑ  ΒΡΙΣΚΕΤΑΙ  ΜΕΤΑΞΥ:» 

860  ΡΡΙΝΤ 

870  ΡΡΙΝΤ  ρΐ;"  ΚΑΐ";ρ2 
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880  ΡΕΤΙΙΡΝ 
890  : 

900  : 

910  ΡΕΜ  Μη  εντοπισμός  της  ρίζας 

920  ΡΡΙΝΤ  «Η  ΡΙΖΑ  ΔΕΝ  ΒΡΕΘΗΚΕ  ΜΕΤΑ  ΑΠΟ  40  ΠΡΟΣΕΓΓΙΣΕΙΣ» 

930  ΡΕΤϋΡΝ 
940  : 

950  : 

960  ΡΕΜ  Ρουτίνα  σφάλματος 

970  ΡΡΙΝΤ  «Η  ΡΙΖΑ  ΔΕΝ  ΜΠΟΡΕΙ  ΝΑ  ΒΡΕΘΕΙ  ΑΠΟ  ΤΑ» 

980  ΡΡΙΝΤ  «ΔΕΔΟΜΕΝΑ  ΠΟΥ  ΕΒΑΛΕΣ» 

990  ΡΡΙΝΤ 

1000  ΡΡΙΝΤ  “ΠΑΤΗΣΕ  ΕΝΑ  ΠΛΗΚΤΡΟ  ΓΙΑ  ΝΑ  ΞΑΝΑΤΡΕΞΕΙ  ΤΟ  ΠΡΟΓΡΑΜΜΑ» 
1010  3$=ΙΝΚΕΥ$:ΙΓ  3$=’"·  ΤΗΕΝ  1010 
1020  ΡΙΙΝ 


Π101  ΤΟ  ΤΕΛΕΥΤΑΙΟ 


Αυτό  το  πρόγραμμα  εξαφανίζεται 
ΕΝΤΟΛΕΣ 

Πληκτρολόγησε  το  πρόγραμμα  και  τρέξε  το. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


ΚΕΜ  Πρόγραμμα  -  Το  τελευταίο 
Μ0ΡΕ  0 
0ΚΙ6ΙΝ  0,0 
ΡΟΗ  ΐ=1  ΤΟ  200 
ς=  ϊ  Μ0Ρ  16 

Ρ1=ΐ  Η0Ρ  31 : Ρ2  =ΡΙΧ(ΚΝΡ(ΤΙΜΕ)*25)+1 
ΒΟΚΡΕΡ  Ρ1,Ρ2 
ΜΟνΕ  ϊ,ϊ 

ΡΚΑΗΚ  0, 400-2* ΐ,ςΓΡΚΑΜΚ  640~2*ϊ,0,ε 
ΡΚΑΝΒ  0, 2*1-400, οΓΡΡΑΜΚ  1*2-640,0, ο 
501ΙΝΡ  1 ,  ί  ,10,15,0,0,0 
30υΝΡ  2,200-1,10,15,0,0,0 
50υΝΡ  3, Ρ IX (ΚΝΡ(ΤΙΙΊΕ)*200 >  +  1,10,15,0,0,0 
ΝΕΧΤ  ϊ 
0  Α1_Ι_  0 
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γραφίδες  τεχνεε  αψο*  σπάρου 
ιηλ  97.51  207  97  01.533 


1  ■/ 

44 

ΙίίΊι 

1  ■<)  ϊ  ϊ  Ρ  1 1  Τ~ ? 

5  1 
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ί  }  π 

ίΐι  ϋ  Μ 

